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Goud van Oud 8 

Rob Goudriaan haalt weer een aantal 
beroemde softwarespelletjes van zol¬ 
der, omdat ze nog steeds de moeite 
waard blijven 

Totalloss 

van de Microauto 12 

Rob Bakker schreef speciaal voor 
Commodore Info weer een kort ver¬ 
haal. Ditmaal belandt hij bij een fami¬ 
lie, die zojuist een computerauto heeft 
aangeschaft. 

Hannover Messe’88 15 

Op volle oorlogssterkte reisde onze 
redaktie naar de grote computer- en 
telecommunicatiebeurs in Hannover 
voor het ‘echte’ nieuws over commo¬ 
dore, printers en software. 
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Redaktioneel 

De Commodore wereld is altijd vol 
geweest met allerlei geruchten en 
roddels. Nog was de ene machine 
maar pas geannonceerd, of de vol¬ 
gende zou al weer klaar staan. Dat 
was al zo in de tijd van Jack Tramiel, 
die er een zeker genoegen in schep¬ 
te altijd een verrassing achter de 
hand te hebben. Bij iedere perscon¬ 
ferentie of interview was er altijd wel 
een hint, dat er binnenkort weer. 
...enz. 

In de loop der jaren heb ik ook al heel 
wat mooie dingen gezien, zoals de 
hele reeks portables op basis van de 
64, de 128, de PC’s en al jaren gele¬ 
den had Jack ook een klein laptopje, 
dat toe al met een 32 bits processor 
werkte. Maar we moeten toch wel 
constateren, dat het grootste deel 
van al dat nieuws uiteindelijk geen 
produktiemodel is geworden. 

Toch is er, vooral bij onze Oosterbu¬ 
ren, de neiging om,zeer geregeld met 
pseudo-nieuws te komen over weer 
nieuwe Commodore machines. Dat 
verschijnt dan in de bladen, compleet 


TRIPLE128 21 

Een kompleet nieuwe rubriek door 
Johan en Johan, twee schrijvers die 
de Cl 28 door en door kennen. Ze 
geven een uitgebreide introductie op 
de hardware en een bespreking van 
de assembler FAST van Radarsoft. 

Data-opslag in GeoPaint 55 

P. Boncz gaat in op de kracht van het 
GEOS operating System: het VLIR 
file-systeem, en het overzetten van 
GeoPaint-afbeeldingen in Basic. 

Nieuws 63 

Vier pagina’s Commodore nieuws en 
nieuwe Amiga software-pakketten 

GeoFile 74 

Een nieuwe loot aan de GEOS-boom 
is het geavanceerde databasepro¬ 
gramma GeoFile. Een beschouwing. 


Vaste rubrieken: 


Datakolom 

5 

Kleine advertenties 

18,59 

strip 

19 

Machinetaal (11) 

67 

Basic Micro’s 

72 

Basis Basic (21) 

78 


met fraaie tekeningen en allerlei inte¬ 
ressant klinkende details. We heb¬ 
ben daar nooit zo in geloofd, niet om¬ 
dat er op de tekentafels geen nieuwe 
versie van de C-64 zouden staan, 
maar omdat de kans, dat die in pro- 
duktie gaan, zeer gering is. 
Ondertussen heeft Commodore zelf 
op de Hannover Messe aangekon- 
digd, met een 68030 Workstation te 
komen en ook een Transputer’ mo¬ 
del in ontwikkeling te hebben. Maar 
meer dan het ontvouwen van plan¬ 
nen en het zoveelste halfwerkende 
model in de achterkamertjes van de 
stand blijkt er niet te zijn. En door er¬ 
varing wijs geworden, zijn we tamelijk 
skeptisch. Misschien zien we vol¬ 
gend jaar inderdaad deze machines, 
tot dat moment geven we u natuurlijk 
de door Commodore gegeven details 
graag door, maar loop niet naar de 
winkel om ze te kopen, daar vindt u 
voorlopig slechts de vertrouwde 64, 
128 (weer volop leverbaar) en de 
Amiga’s. 

L.Sala 
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Luc Sala’s Datakolom 

Computers in Japan 

V raagt een andere cultuur ook om een andere computer?Op een recente 
trip in Japan vroeg ik naar het gebruik van computers op scholen daar. 

Het antwoord was verbazend. Men deed er nog niet veel aan, maar aange¬ 
zien de buitenlanders altijd vroegen of men geen computers in het onder¬ 
wijs gebruikte zou het ministerie dat nu eens wat gaan stimuleren. 


Met andere woorden, men had zelf 
geen behoefte gevoeld aan compu¬ 
ters, maar aangezien het schijnbaar 
elders wel zo was, zou men er eens 
over denken. Wat is dat nu, zijn die nij¬ 
vere Japanners, die ons overspoelen 
met hun computerprodukten, geen 
gebruikers van de eigen digitale medi¬ 
cijn? 

Kevin Strehlo, een computerjourna- 
list, schreef een roman over de op¬ 
komst van de computerindustrie in Si¬ 
licon Valley ("Silicon Harvest"). Daarin 
gaat zijn hoofdpersoon, een geroman¬ 
tiseerde Bill Byron met veel trekjes 
van Bill Gates, op een gegeven mo¬ 
ment geloven, dat de Japanners met 
de introductie van de microcomputer 
een groots opgezet complot zijn be¬ 
gonnen om de Amerikaanse industrie 
op de lange duur uit te hollen. De gro¬ 
te boosdoener zou dan de spreads¬ 
heet zijn, het werken met cijfertjes dat 
de Amerikaanse zakenwereld van 
binnenuit zou hebben aangetast. Het 
werken met cijfers in een beperkte op¬ 
zet zou leiden tot een overwaardering 
van de resultaten op korte termijn en 
men zou blind geworden zijn voor de 
werkelijk belangrijke gegevens en re¬ 
laties van een onderneming. Op ter¬ 
mijn zou dat leiden tot innerlijk ver¬ 
zwakte ondernemingen, die niet meer 
investeren in activiteiten en funkties, 
die niet op korte termijn rendement in 
hun modellen opleveren. In het boek 
stelt Byron dan allerlei maatregelen 
voor om het tij te keren, waaronder zo 
ongeveer een verbod op het gebruik 
van spreadsheets. Het is een roman, 
maar ik was onder de indruk van de 
analyse, die gemaakt werd. 

Strehlo heeft met dit amusant boek 
met een voor de insiders meer dan 
herkenbare karikatuur van nogal wat 
Silicon Valley goeroes, toch ook bril¬ 
jant een van de tekortkomingen van 


de computer weten te treffen. De na¬ 
druk op cijfers, op rijtjes en eventueel 
grafieken is heel leuk, maar verhult 
vaak de echt belangrijke dingen. Ge¬ 
voel voor wat er echt gebeurt, is gauw 
verloren wanneer men alleen maar 
naar een spreadsheeet zit te turen. 

Terug naar Japan, waar ze in dit op¬ 
zicht wat anders denken bij ons en in 
de VS. De hele beslissingsstructuur is 
daar anders, men zal niet snel op ba¬ 
sis van cijfers iets concluderen, zon¬ 
der ook met de mensen te praten en 
zich in de achtergronden te verdiepen 
De computer, bij ons primair een cij- 
fermachine, past daar niet zo erg 
goed bij. Men ziet het meer als een 
leuk ding om de moeilijke Japanse let¬ 
tertekens op papier te krijgen, om te 
tekenen op het scherm of om spelle¬ 
tjes te spelen. 

Nu is de computer in Japan ook nog 
lang niet zo populair als hier. Het gaat 
om een paar miljoen, gezien de om¬ 
vang van de Japanse bevolking niet 
erg indrukwekkend. Men loopt achter 
op de VS en West Europa. Er zijn wel 
een 10 miljoen Nintendo Famicon 
speelcomputertjes verkocht, maar dat 
zijn meest dingen met insteekmodu- 
les en zonder toetsenbord. Toetsen¬ 
borden zijn natuurlijk al helemaal niet 
geschikt voor de grote variëteit in de 
Katakana, Hirakana en vooral kanji 
karakters, waarin men leest en 
schrijft. Er is wel een hele generatie 
tekstsoftware, die een beetje gekunst¬ 
eld toch het gebruik van een normaal 
toetsenbord mogelijk maakt voor Ja¬ 
panse karakterprocessing. Dat is ech¬ 
ter in een enigszins betaalbare versie 
pas ongeveer een jaar op de markt. 
Verder zegt het begrip database de 
niet erg alfabetisch ingestelde Japan¬ 
ners ook niet zoveel, men houdt niet 
van erg geregelde en overzichtelijk 
opgestelde dingen. Adressen, straat¬ 


namen en huisnummers bijvoorbeeld 
zijn soms wel, maar ook vaak niet 
goed vastgelegd en zoiets als een 
postcode is de Japanners nog 
vreemd. De taxichauffeur, gaat 
meestal eerst vijf minuten zitten turen 
in per wijk, straat en blok uitvergrote 
kaarten, en moet het dan twee keer op 
de hoek vragen. 

Alles bij elkaar is de Japanse manier 
van werken met gegevens duidelijk 
anders dan bij ons, en hun computers 
zijn daar ook wel een beetje op aan¬ 
gepast. Misschien is dat ook de reden, 
dat MSX uiteindelijk niet de grote ze¬ 
getocht voor de Japanse electronica- 
industrie geworden is, die men ver¬ 
wacht had. Er zijn er wel een paar mil¬ 
joen van verkocht, maar met name in 
de VS is het nooit goed aangeslagen. 
In Europa is het verhaal bekend, na 
een leuk succes in een paar landen 
zitten we nu met een soort MSX-con- 
centraties in een paar landen. 

Op dit moment is er op computerge¬ 
bied trouwens een hele nieuwe Ja¬ 
panse invasie op komst, men ziet daar 
namelijk in Unix een nieuwe kans om 
hardware te verkopen. Bijvoorbeeld 
Sony en Sanyo hebben al exportplan- 
nen en lieten onlangs hun Unix hard¬ 
ware al in de VS zien. Men mikt met 
name op de onderwijswereld, daar is 
Unix heel populair en ziet men grote 
afzetten opdoemen. Ook hier zouden 
we kunnen opmerken, dat het multi- 
user karakter van Unix systemen mo¬ 
gelijk beter past bij culturen, waar het 
beslissingsproces wat meer hierar¬ 
chisch is en men niet in persoon sa¬ 
men hoeft te komen om iets te beslis¬ 
sen. 

Luc Sala 
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Te vaak verdwijnen goede spellen voorde Commodore 64 al op de rommelzolder voor¬ 
dat ze werkelijk bekend zijn geworden. Gelukkig snuffelt Rob Goudriaan regelmatig 
rond om een aantal oudjes nogeens voor het voetlicht te halen 


Oud van Goudriaan 


Dino Eggs 



hoort dus zeker in deze rubriek thuis. 
Ditmaal ben je een tijdheer genaamd 
Tim, en je hebt de nobele taak om jon¬ 
ge dinosaurissen te redden. Dit is te 
doen door de eieren mee te nemen 
naar deze moderne tijd. Daarvoor 
moet je met een tijdmachine naar de 
oertijd en weer proberen terug te ko¬ 
men met de eieren. Zo gemakkelijk 
gaat dat natuurlijk niet. Het spel heeft 
10 verschillende velden. Reizend in je 
tijdmachine kan je de eieren transpor¬ 
teren maar je kan maar drie eieren te¬ 
gelijk vervoeren. Elke keer dat je drie 
eieren verzameld hebt moet je deze 
eerst naar de tijdmachine brengen om 
over te brengen. Uiteraard is de moe¬ 
der dinosaurus het hier niet mee eens, 
en zul je hier terdege rekening mee 
moeten houden. Haar gigantische po¬ 
ten zullen je proberen ervan te weer¬ 
houden haar kindertjes mee te ne¬ 
men. Kom je onder deze poten dan 
overleef je dit niet. Blijf je opletten, dan 
is dit wel te voorkomen, door tijdiq weq 
te lopen. 

Veilig ben je echter alleen als je een 
vuurtje stookt, gelukkig ligt er hier en 
daar wat hout verspreid. Heb je dan 
een vuurtje gemaakt dan wordt er 
aangegeven hoelang het vuur nog 
kan blijven branden, let er op dat je bij¬ 
tijds hout bij gooit. Behalve moeder 
Dino zijn er nog meer gevaren, enge 
slangen, grote griezelige spinnen. 
Naarmate het spel vorderd komen er 
steeds meer gevaren bij. Hulp kan je 
onverwachts krijgen van een bloem, 
deze plukken en je kan ineens meer 


dan drie eieren dragen. Kom je een 
klein dinosaurusje tegen dan moet je 
deze ook meenenemen, dit lukt alleen 
door over hem heen te sringen. Ver¬ 
geet je niet tegen mazelen te laten 
inenten voor je aan dit spel begint, 
want daar is alle ellende mee begon¬ 
nen. Aan het begin van het spel komt 
er een gigantische rots naar beneden 
vallen. /Achter deze rots komt het ver¬ 
haal van de dinosaurussen te staan 
lees dit vooral goed, je kan er je voor¬ 
deel mee doen. 


Staff of Karnath 

Een sleutel speelt in dit verhaal een 
sleutelfiguur (hoe kan dit ook anders). 
Een belangrijke sleutel valt, en blijkt in 
16 stukken te zijn gebroken. De brok¬ 
stukken zijn her en der in een spook 
kasteel verstopt. Deze stukken wor¬ 
den, als ware het goudstukken op ver¬ 
schillende manieren bewaakt. Er zijn 
wachters, monsters, heksen, vleer¬ 
muizen, spinnen en nog veel meer 
van dat engs. Magische muren, niets 
blijkt te dol te zijn. leder stukje sleutel 
dat je te pakken krijgt moet naat de 
obelisk gebracht worden die staat in 
de kelder van dit slot. Ook deze wordt 
natuurlijk weer zwaar bewaakt, de 
botoverde maskers hangen er niet 
voor niets aan de muur. Zij vuren do¬ 
delijke pijlen af zodra je je maar laat 
zien. Een vogel die hier in de kelder 


vrij rond vliegt ziet er onschuldig uit, 
maar pas op voor de eieren die zij laat 
vallen, ook deze zijn dodelijk. Er wordt 
om een spreuk gevraagd, blijf je op 
deze vraag het antwoord schuldig dan 
kost dit kostbare tijd.Deze spreuken 
heb je ook nodig om monsters tijdelijk 
uit te schakelen. Zelf deuren zijn hier 
soms mee te openen. Deze spreuken 
zijn opgeborgen in een magische ring 
die je draagt. Deze is te bedienen door 
een druk op de vuurknop. Als je een 
stuk sleutel hebt gevonden dan ver¬ 
schijnt er op het beeld een vierkant, 
waarin je kan zien welk stuk je bezit. 
Vergeet niet dit stuk eerst weg te gaan 
brengen voor je aan het volgende stuk 
gaat beginnen. Energie is een strui¬ 
kelblok, deze daalt soms heel snel, de 
enige manier om deze aan te vullen is 
een sleutelstukje te brengen bij de 
obelisk. Hierdoor stijgt je energie weer 
tot 100%. Je beschikt maar over 1 le¬ 
ven dus uitkijken wat je doet. Er zijn 
ook hele makkelijk kamers bij, hier 
hoef je alleen een paar wachters te 
ontwijken, en soms alleen maar af te 
wachten. In sommige kamers heb je 
dingen nodig die je eerst uit een ande¬ 
re kamer moet halen. Spinnen zijn al¬ 
lergisch voor een bepaalde spreuk, 
pak je de goede dan valt het sleutel- 
deel zo uit het web. In elke kamer is 
wel wat, vliegende tapijten, vleermui¬ 
zen, vampiers, trollen eigenlijk te veel 
om op te noemen, leder hoekje, ieder 
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Kalah 


gaatje zal onderzocht moeten wor¬ 
den, het is dan ook onmogelijk om het 
spel de eerste keer helemaal uit te 
spelen. Moetje eerst de moeilijke, of 
juist eerst de makkelijke kamers ne¬ 
men? Om dit spel tot een goed einde 
te brengen zal je op moeten schrijven, 
wat bij wat hoort. Je zal dit spel ver¬ 
schillende malen moeten spelen voor 
je hier achter bent. Dit alles mag u zelf 
proberen. Pas op voor verslaving 
want daar heb ik zelf behoorlijk last 
van gehad. Helaas heb ik het spel 
(nog) niet tot een goed einde kunnen 
brengen. Mischien lukt het jullie nog 
wel eens, veel succes, maar je bent 
gewaarschuwd. 

Splitpersonality 

Splitpersonality is een uitgebreide 
schuifpuzzel met afbeeldingen van 
overbekende wereldburgers. Je be¬ 
gint met de bekendste figuur uit de 
Amirikaanse politiek, de heer R. Rea- 
gan. Door een druk op de vuurknop 
krijg je een puzzelstukje. Deze moetje 
proberen op de juiste plaats neer te 
zetten. Om het geheel wat moeilijker 
te maken zijn er ook stukjes bij die 
niets met deze puzzel te maken heb¬ 
ben. Hier moetje goed voor uitkijken, 
er zijn zeer gevaarlijke dingen bij. Een 
plaatje met de bom moet je zeer snel 
weer wegwerken anders hoeft het niet 
meer en is het spel afgelopen. Hier¬ 
voor zijn er in de wanden, zowel bo¬ 
ven als beneden, links gaten opgeno¬ 
men. Helaas gaan deze openingen af 
en toe dicht, en meestal op het ver¬ 
keerde moment. Hierin kan je ook de 
stukjes kwijt die je niet (direkt) nodig 
hebt. Ook zijn er afbeeldingen van 
vlaggen, Rusland en Amerika, een 
vinger dreigend hangend boven een 
knopje en een pistool, uitkijken dus. 
Bij bepaalde combinaties zijn er extra 


punten te verdienen. Een kopje Engel¬ 
se thee is één van de onderdelen die 
je tegenkomt bij de afbeelding van de 
ijzeren dame, M. Tetcher. Let bij dit al¬ 
les wel op de tijd, want het is een race 
tegen de klok, ben je niet op tijd klaar 
dan kost dit je één van je drie kostba¬ 
re levens. Vele bekende en minder 
bekende afbeeldingen moetje zo pro¬ 
beren te maken. Hierin ontbreken ook 
Lady Dy en prins Charles natuurlijk 
niet. Nieuwsgierig geworden, wie u 
nog meer tegen komt? Dan zit er niets 
anders op dan dit spel te gaan spelen. 


Kalah 

Dit maal eens geen schietspel, race 
wagens die over het beeld schieten, 
rare monsters maar een denkspel. Zo 
op het eerste gezicht lijkt het helemaal 
niet zo moeilijk om de computer te ver¬ 
slaan, maar je moet toch wel van gou- 
de huize komen. Je speelt tegen de 
computer en hebben beide de be¬ 


schikking over 7 kuiltjes. Hiervan zijn 
er zes klein en is er één groot. De gro¬ 
te kuil wordt ’kalah’ genoemd, hierin 
moeten de stenen worden verzameld. 
Voor we gaan spelen kiezen we eerst 
het spelnivo. Hierna komt de keusm 
hoeveel stenen we nemen, en misch¬ 
ien wel de belangrijkste, wie begint er. 
Degene die begint zegt uit welk kuiltje 
hij de stenen haalt. Deze stenen wor¬ 
den dan verdeeld, tegen de wijze van 
de klok in, over de andere kuiltjes. In 
elk kuiltje moet één steentje worden 
gelegd. Passeert men een kallah dan 
wordt ook hierin een steentje gelegd. 
Wordt het laatste steentje in de eigen 
kallah gelegd dan mag men nog een 
keer. Stenen die eenmaal in de kallah 
liggen mogen er niet meer worden uit¬ 
gehaald. Wanneer de laatste steen te¬ 
recht komt in een leeg kuiltje aan de 
eigen kant van het bord, dan zijn de 
stenen uit het kuiltje recht tegenover 
jouw kuiltje voor jou. Deze worden 
met de steen die ze veroverd heeft in 
de eigen kallah gelegd. Het spel is af¬ 
gelopen wanneer er bij een van de 
twee spelers geen steenjes meer in 
de kuilen liggen. De steentjes die dan 
nog in de kuiltjes liggen worden opge¬ 
teld bij die in de kalah van de speler. 
De winnaar is hij, die de meeste ste¬ 
nen in zijn kallah heeft liggen. Ook is 
er een einde aan het spel gekomen op 
het moment dat een speler meer dan 
de helft van de stenen heeft veroverd. 

Rob Goudriaan 
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Total loss van de 


- door Rob Bakker - 


"Als de autoindustrie net zo snel was gegaan als de 
microcomputerindustrie sinds 1981, dan hadden we nu 
wagens die in 3 seconden van 0 tot 90 kilometer 
optrokken, de wereld rond konden op een tank benzine 
en half zo duur waren als zes jaar geleden." 

Aldus een deskundige computergoeroe. 

Wat ze er niet bij vertellen is, hoe de familie Flopsnee 
nog een middagje zou kunnen toeren, als de 
auto-industrie net zo gebruiksonvriendelijk was gebleven 
als de microcomputerindustrie sinds 1981. 

Pa Flopsnee wil gezellig met vrouw en kinderen een 
rondje gaan rijden in zijn splinternieuwe micro-auto van 
het merk HAL. Het gezin stapt in de auto en pa Flopsnee 
probeert het vehikel te starten. Uiteraard gebeurt er 
niets. Het jongste zoontje Flopsnee, zo’n kiene, etterige 
whizneuskid, weet raad. "Dan moetje HAL bellen", zegt 
hij. 

Mopperend stapt pa weer uit om de dealer te bellen. Die 
lui zijn immers niet te beroerd om op hun vrije dag met 
hun goede pak onder een auto te gaan liggen. Eigenlijk 
doen ze niets liever en dat is ook de reden dat zo’n man 
HAL-dealer wordt. 

Helaas krijgt pa een automatische telefoonbeantwoorder 
aan de lijn die voor storingen doorverwijst naar een 
ander nummer. Na een half uur in-gesprektonen krijgt hij 
een monteur, die naar zijn klantnummer vraagt. 
"Klantnummer?" 

"Van uw Service-, Hulp- en Onderhoudscontract." 

Pa Flopsnee herinnert zich dat hij die duizend gulden 
extra voor dat contract verspilling vond en hangt 
mismoedig op. Gelukkig is hij ook lid van de MCN 
(Mobiel Club Nederland) en na nog een half uur bellen 
krijgt hij adviezen om met het goede programma zijn 
auto op te starten. 

Verheugd holt Pa naar buiten en hij krijgt echt de auto 
gestart. In drie seconden trekt hij op van 0 tot 90 
kilometer per uur. 

"Kan het niet langzamer?", vraagt Ma Flopsnee 
benauwd, want 90 kilometer is wat oncomfortabel over 
een woonerf met drempels. 

Pa laat het gas los, maar zo simpel werkt een auto niet. 
Die is gebouwd om onmiddellijk 90 te rijden en lager, 
nee, dat zit er niet in. 

"O", roept pa, als de volgende drempel met zero wait 
genomen wordt. "Verlaag de kloksnelheid", roept de 
akelige whizneuskid van de achterbank. 

"De wat?", gilt vader. 

De whizneuskid pakt snel een handboek en laat vader 
allerlei knopjes, handeltjes, palletjes en pieletjes 
overhalen, waarvan hij niet eens wist dat ze allemaal aan 
zijn auto zaten. Het resultaat is verbluffend: de auto 
mindert vaart. 


"Alles is mogelijk met deze auto", zegt de whizneuskid. 
Maar pa denkt met weemoed aan de Trabant die hij ooit 
had, ook helemaal van plastic en net zo zuinig en snel 
als dit wonder, maar wel heel erg begrijpelijk in het 
gebruik. 


Moeder Flopsnee kijkt trots. Die zoon van ons toch. 

In een ontspannen tempo gaat het verder, maar omdat 
het zondag is, gaat het ook regenen en pa wil de 



ruitenwissers aanzetten. Er klinkt een gekras, maar er 
gebeurt verder niets. Pa probeert het nogmaals, met 
hetzelfde enge geluid en verder niets. Na enige minuten 
ziet hij niets meer en moet hij stoppen. Hij verbijt zich als 
de whizkid uitstapt en vervolgens hoofschuddend naar 
de ruitenwissers kijkt. "Waar heb je die vandaan, pa?" 
"Gewoon, van een goedkoop adresje. De dealer is veel 
te duur voor een eenvoudige ruitenwisser." 

Vader Flopsnee trommelt met zijn vingers op het stuur 
en zwijgt duister. Gelukkig is hij een zuinig man en had 
hij de oude wissers bewaard in de kofferbak, voor je kon 
nooit weten. De wissers worden verwisseld en de tocht 
wordt voortgezet. 

Maar als Pa Flopsnee aan het eind van de straat een 
bocht wil nemen, dreigt de auto gewoon rechtdoor te 
gaan. 

"Help!", gilt pa en stuurt zich wezenloos. 
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Microauto 


Maar de wielen gaan ieder een verschillende kant op. Op 
het laatste moment, als een ramp onafwendbaar lijkt, 
draait pa in paniek de contactsleutel om en de auto staat 
onmiddellijk stil. 

"Je hebt hem gereset", zegt de zoon teleurgesteld. 
Woedend draait pa zich om. "Ik zal jou eens op je plaats 
resetten", brult hij. Maar het whizneusjoch verstopt zich 
achter een paar manuals en daar komt zelfs geen 
woedende vader doorheen. 

"Wat nu?", vraagt moe Flopsnee. "Welke versie van het 
besturingssysteem zit erin?", vraagt de whizneuskid. 



Vader Flopsnee kijkt hem alweer verhit aan. "Gewoon 
een stuur", roept hij getergd, maar aan de medelijdende 
glimlach van het joch ziet hij dat de wereld niet zo 
eenvoudig in elkaar zit. 

"Zit het besturingssysteem drie-punt-één er nog in? Of 
drie-punt-twee? Of al drie-punt-drie?" 

Vader kijkt eens naar het stuur. Ziet dat er nu uit als 
drie-punt-één, of lijkt het meer op drie-punt-twee? Hij 
krijgt er één-twee-drie een punthoofd van. Hoe zat dat 
ook alweer met zijn Trabant? Naar links draaien en de 
auto ging naar links? Hij weet in ieder geval dat hij er 
nooit problemen mee had. 

Inmiddels is de whizkeutelkid in de boeken gedoken en 
trekt naar voren gebogen allerlei vakjes open in het 
dashboard, waarvan vader niet eens wist dat ze 
bestonden. 

"Verkeerd besturingssysteem", mompelt het joch. "Ik 
maak wel een driver.” 


Waarom voelt Pa Flopsnee weer een woedeaanval 
naderen? Hij was toch de driver? Vroeger, toen een 
driver nog gewoon automobilist heette, dat waren nog 
eens tijden. Maar na enig gerommel kondigt zijn zoon 
aan dat ze verder kunnen. "Maar kijk eerst naar het 
menu", zegt de whizneuspip. "De auto is nu 
menugestuurd"."Denk toch niet altijd aan eten", roept 
vader Flopsnee. "Straks krijg je pas je patatje!" Maar 
ergens voelt hij dat hij iets verkeerds zegt en grommend 
start hij de auto. Die trekt in 3 seconden op van 0 tot 90 
kilometer per uur. Vader draait het stuur naar rechts en 
zoals het keurig op het menu staat aangegeven, gaat de 
auto naar links. In paniek draait pa verder door en de 
auto gaat geheel menugestuurd achteruit rijden. Pa 
draait door en nu draait de auto om zijn eigen as en tolt 
tenslotte met een klap tegen een boom tot stilstand. 

"Een crash", zegt de whizneus verdrietig. 

Trillend stappen pa en de rest van de familie uit. De 
schade bestaat uit een deuk in de achterkant. "Misschien 
wel een nieuw moederbord", taxeert zijn zoon. Ma 
Flopsnee denkt vetederd dat ze een nieuwe strijkplank 
krijgt voor moederdag. Pa denkt met weemoed aan de 
aloude sleepkabel, die vroeger in zijn Trabant lag. Een 
lusje om de nek van zijn zoon en dan over die tak van de 
boom.... 

"In ieder geval moet hij opnieuw geformatteerd worden", 
onderbreekt de whiznitwit zijn gedachten. 

Misschien moet ik hem eens formatteren, denkt vader 
Flopsnee. 

"Maar we kunnen misschien verder op de co-processor", 
hoort vader de whizkillkid zeggen en hij besluit zich in te 
houden. 

Inderdaad wordt een en ander opgestart en dat maakt 
vader Flopsnee zo opgelucht, dat hij de opmerking van 
zijn zoon over een 'open systeem’ maar negeert. Wat 
een smerig taalgebruik heeft die jeugd toch! 

Als eindelijk het zondagse ritje achter de rug is, heeft 
vader Flopsnee een troost; hij heeft nog steeds genoeg 
benzine in de tank om een keer de wereld rond te 
kunnen, minus de 15 kilometer die ze vanmiddag hebben 
afgelegd. Toch wel goedkoop. 

"Van die besparingen kan ik bijna de nieuwe onderdelen 
en het onderhoudscontract betalen", zegt vader 
Flopsnee optimistisch. 

"Vergeet het maar", zegt zijn whizverspilkid. "Die HAL is 
al vier uur oud en dus overjarig en verouderd en 
afgeschreven. Niet meer de moeite waard van nieuwe 
onderdelen. Koop maar een nieuwe!" 

Nadat vader Flopsnee met een stevige slash uit de doos 
van Norton Utilities zijn zoon heeft erased, denkt hij met 
weemoed terug aan zijn Trabant, die weliswaar twee 
keer zo duur was als zijn microauto, maar de helft 
goedkoper. 

© 1988 Rob Bakker 

Rob Bakker is schrijver van boeken en verhalen. Voor Commodo¬ 
re Info schreef hij dit kort verhaal, waarin de zegeningen van de 
computer op de hak genomen worden. 
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Traditioneel gebruiken de rivalen Commodore en Atari de Hannover Messe om hun 
nieuwe plannen en produkten aan te kondigen. Het toneel daarvoor, hotel Maritime in 
Hannover, is voor beiden gelijk, maar dat komt door de gemeenschappelijke achter¬ 
grond: Jack Tramiel is het verbindend element. 

Nieuws 

van de Hannover Messe ’88 


V oor zowel Commodore als Atari is de Europese markt en dan met name 
Duitsland, van enorm belang. Commodore heeft in Braunschweig zelfs 
fabrieken en is daar al jaren marktleider voor de hobbycomputers en belang¬ 
rijke leverancier op PC gebied. 



Op de CeBIT '88 
demonstreerde 
Commodore ook de 
PC 60 en PC 40 in 
een 

netwerkomgeving. 


De rivaliteit tussen de beide marktlei¬ 
ders in de huiscomputermarkt is 
enorm, men heeft weinig goede woor¬ 
den voor elkaar over en trekt vooral ei¬ 
kaars verkoopcijfers in twijfel. Toch 
gaat het zowel Commodore als Atari 
weer goed en beide bedrijven hebben 
zich min of meer verzoend met een 
coëxistentie als leveranciers van low- 
end machines met beiden de ambitie 
om door een fenomenale prijs/presta¬ 
tie sprong toch in de professionele 
markt door te dringen. 

Atari 

Jack Tramiel van Atari kon met enige 
trots melden, dat men het half miljard 
dollar peil voor de jaaromzet bereikt 
had en daarmee in de computerge- 
schiedenis weer een nieuw groeire- 
cord zette. Een deel daarvan is te dan¬ 
ken aan de weer groeiende omzet in 
videospelletjes, die in de VS en Enge¬ 
land duidelijk bijdragen aan het Atari 
resultaat. 


PC 1,2,3 

De reeks MS-DOS modellen van Ata¬ 
ri is nu echt op de markt en na de nu 


beschikbare modellen PCI, PC2, en 
PC3 zullen later dit jaar ook de PC4en 
PC5 uitkomen, die met een 80286 en 
80386 processor zullen zijn uitgerust. 
Voor deze modellen is men nog bezig 
met een harddisk met uitwisselbare 
schijven. Er kan op deze uitwisselba¬ 
re schijven 44 MB aan informatie, en 
dat alles op één schijf. Men spreekt 
over een prijs voor alleen de schijf van 
120 dollar, die zodra de produktie 
goed op gang gekomen is moet dalen 
tot 60 dollar. Daarmee zou men een 
wel erg goedkoop alternatief voor de 
harde schijf in handen hebben. 

68030 Workstation 

Commodore en Atari kijken al jaren, 
met min of meergulzige ogen, naarde 
markt voor professionele worksta- 
tions. En in het verleden heeft men 
dan ook weleens aankondigingen ge¬ 
daan, die op zijn minst gezegd wat 
voorbarig waren. 

We hebben, op dezelfde plaats in 
Hannover, door de heren Tramiel, 
Hartman en Shivaz tenminste drie¬ 
maal een nieuwe Unix machine zien 
aankondigen, eerst met hun Commo¬ 
dore pet op, nu voor Atari. Steeds ging 


Hannover is voor Commodore in 
Duitsland traditioneel de plek, 
waar men het nieuws voor het ko¬ 
mende jaar voor het eerst laat 
zien. Ook wereldwijd gezien is dit 
vaak de plaats, waar men de we¬ 
reldprimeur van een nieuw sys¬ 
teem laat plaatsvinden. Dit jaar is 
dat ongetwijfeld de Amiga 2500 
AT, die ook voor Unix toepassing 
is ontworpen. 

De specificaties van beide confi¬ 
guraties is: 


Amiga 2500 AT 

0 68020 Motorola processor (14,2 
MHz) 

0 Harde schijf 40 MB (25 msec) 

0 AT-bridgecard met 80286 (640 
kRAM) 

°3,5 en 5, 25 inch diskdrive (voor 
zowel PC als Amiga) 

0 Non Interlace chip-set (640 x 512) 

° monitor 1950 (kleuren bi-syn- 
chroon) 

Amiga 2500 UX 

Deze Unix versie van de Amiga 2500 
is bedoeld voor de toepassing als 
Workstation en ontwikkelmachine. 

° 68020 Motorola processor (14,2 
MHz) 

0 4 MB (32 bit RAM) intern geheu¬ 
gen 

"harddisk van 100 MB (28 msec) - 
autoboot 
° Tape-streamer 
0 3,5 inch diskdrive 
° Operating System Unix 5.3 
° Monitor 2024 (zw/w, 1008 x 1024) 
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het om een produkt, dat qua presta¬ 
ties alle concurrenten zou gaan ver¬ 
slaan, tegen een prijs waar niemand 
tegenop kon. Als dan nu weer een 
nieuw concept en demomachine 
wordt gelanceerd, ditmaal met de zeer 
verse Motorola 68030 processor, 
maar verder met de zelfde vage belof¬ 
tes over levering als voorheen, dan 
kunnen we daar niet echt enthousiast 
over worden. Atari wil zeker naar de 
Unix markt, maar is overenthousiast 
en struikelt steeds over de complexi¬ 
teit van die markt en de eisen, die daar 
gesteld worden aan betrouwbaarheid, 
documentatie en support voor de ont¬ 
wikkelaars. Men schijnt met AT&T tot 
overeenstemming gekomen te zijn om 
de UNIX V versie 3.1 op deze machi¬ 
ne te gaan draaien. 


Transputer 

Zowel Commodore als Atari lieten in 
Hannover weten, met een model op 
basis van de Inmos transputer chips 
te komen. Een transputer is een pro¬ 
cessor die met hoge snelheid meerde¬ 
re processen parallel verwerken. Ata¬ 
ri mag dat model niet meer ABAQ 
noemen (er was al een Belgische fa¬ 
brikant van die naam). Voor beide 
plannen geldt, dat ze meer in verband 
met de onderlinge vete tussen de be¬ 
drijven moeten worden gezien, dan 
als produkten voor zelfs de komende 
jaren. De Commodore transputer is in 
Braunschweig ontwikkeld en werkt 
met de T 414 chip op 20 MHZ. Er 
wordt een verwerkingssnelheid van 
10 MIPS genoemd en het besturings¬ 
systeem is Helios van Perihelion. 


Amiga/Commodore 

Op een drukbezochte persbijeen¬ 
komst van Commodore was het be¬ 
langrijkste nieuws het verschijnen van 
een nieuwe versie van de Amiga, de 
Amiga 2500 op basis van de 68020 
processor, in twee uitvoeringen. De 
2500 AT is een AT met als basis 2 MB 
RAM en een complete nieuwe set 
chips. Er is een 40 MB harddisk met 
een toegangssnelheid van 28 ms, 
waarvan zowel in Amiga-modus als 
DOS-mode geboot kan worden. Com¬ 
modore begeeft zich met de 2500 UX 
op de markt van Unix-computers. Er 
wordt gewerkt met Unix 5.3 en stan¬ 
daard zijn er 4 MB RAM, 100 MB hard¬ 
disk, tapestreamer en 3,5 inch drive. 
Voor deze machine is ook een nieuwe 
paperwhite monochrome monitor A 
2024 met een oplossend vermogen 
van 1008x1024 punten. 


Op de Hannover Messe kondigde Commodore aan, dat 
men voor de Amiga ook de grotere rekenkracht van de 
68020 en 68030 processoren beschikbaar zou gaan ma¬ 
ken. 


Amiga met sneller hart 


Atari/Commodore werkstations 


De 68020 kaart 

Onder typenummer A 2620 liet Commodore een nieuwe processorkaart zien, 
waarop een 14 MHZ 68020 draait. Dat is een echte 32/32 bits processor van 
Motorola, die qua rekenkracht te vergelijken is met de Intel 80386. Met deze 
kaart draait een Amiga 2000 nog eens vier keer zo snel (400% prestatieverbe- 
tering). 

De 68020 wordt door het grootste deel van de leveranciers van snelle ‘worksta- 
tions’ gebruikt en bedrijven als Sun, Apollo, maar ook Sony maken gebruik van 
de MIPS van deze chips. De Motorola chip levert namelijk prestaties, die ver 
boven de Million Instructions PerSecond (MIPS) liggen. 

In de A 2620 kaart kan men 68881 of 68882 coprocessor gebruiken, die een 
14,20 of 25 MHz kloksnelheid kan hebben, om bijvoorbeeld het vele rekenwerk 
in CAD/CAM toepassingen nog sneller te maken. Als geheugen zit op de kaart 
64 KB ROM met wat extra systeeminformatie en dan 2 tot 4 Megabyte (met 
dochterkaart) 32 bits geheugen. Dat wil zeggen, dat men het geheugen via een 
32 bits bus kan adresseren en dus een veel groter adresbereik heeft, dan bij de 
68000, waar dat met een 16 bits bus gebeurt. De besturing van dat 32 bit ge¬ 
heugen gaat met een 68851 chip, die voor Virtual paging’ zorgt. 

De A 2620 kaart is compatibel met het AMIGA-DOS operating systeem. 



Op de CeBIT/Hannover Messe kondigden zowel Atari als Commodore aan, bin¬ 
nenkort met een Workstation voor professionele toepassingen te komen, die ge¬ 
bruik maakt van de Motorola 68030 processor. Dat is een van de krachtigste 
processorchips. die beschikbaar zijn en zou moeten leiden tot een enorme ver¬ 
betering in de prijs/prestatieverhoudingen voor werkstations. Dergelijke compu¬ 
ters worden gebruikt voor zeer rekenintensieve individuele toepassingen, zoals 
Computer Aided Design (CAD), software ontwikkeling en DeskTop Publishing. 
Verder liet Atari weten haar reeks MS-DOS computers nu te kunnen leveren en 
uit te breiden met machines met 80286 en 80286 processoren. Ook Commo¬ 
dore gaat de reeks PC’s uitbreiden en komt ook met meer Amiga modellen, zo¬ 
als het model 2500. 
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Amiga 3000 

Commodore deed ook een uiterst 
schimmige aankondiging van een 
Amiga 3000 met de 68030 processor. 
Tijdens de presentatie werd een dia 
getoont met daarop: Commodore 
3000; 68030 processor. Verder werd 
er echter met geen woord over gerept. 
Ook de 2500 was overigens de eerste 
beursdag niet op de stand te zien. 
Nieuw was de 80386 PC van Commo¬ 
dore, de PC 60, met 3 MB intern ge¬ 
heugen en een 40 of 80 MB harddisk. 

Op het gebied van de thuiscomputers 
had Commodore eigenlijk geen 
nieuws. Het in het geruchtencircuit 


verwachtte nieuwe model van de 
Commodore 64, de 64-3 met inge¬ 
bouwde diskdrive, lijkt er niet te ko¬ 
men en het gerucht gaat dat Commo¬ 
dore geen geld heeft voor de produk- 
tie van het apparaat. Dat is niet zo ver¬ 
wonderlijk gezien de grote activiteit op 
het gebied van professionele syste¬ 
men (Amiga 2500 en de PC-lijn). Er is 
wel al enige tijd een nieuwe 3,5 inch 
diskdrive voor de C-16, VIC-20, 64 en 
128, de 1581. Maar dat was in Hann- 
over al geen nieuws meer. Ook het 
laatste model in de 128-serie, de 128 
DCS met metalen kast, kwam in 
Hannover niet aan de orde. Er werd 
wel duidelijk gesteld dat op het gebied 


van de 128 alleen nog de versie met 
ingebouwde diskdrive geleverd wordt, 
en dat er geen nieuwe modellen meer 
te verwachten zijn. 

Voor de Amiga 2000 kondigde men 
wel een upgrade-kaart met de 68020 
processor aan. Deze A 2620 proces- 
sorkaart heeft twee of vier MB RAM en 
64 KB ROM, een 68020 op 14 MHz en 
coprocessor. Verdere nieuwtjes van 
Commodore: een kleurenprinter voor 
de Amiga (zie elders in dit artikel) en 
een Genlock-board A 2300 voor in¬ 
bouw in de Amiga 2000. 


Ook de producenten van printers hebben de afgelopen maanden niet stil gezeten. De 
meest interessante machines belichten we hieronder in vogelvlucht. 


Printer-nieuws 


De tijden, dat de C-64 en C-128 versies van nieuwe 
printers automatisch werden uitgebracht, zijn helaas 
voorbij. Star is in dit opzicht een gunstige uitzondering 
en zelfs Commodore zelf blijkt zich toch voornamelijk 
op Amiga en PC bezitters te richten met haar nieuwe 
printer. 

Commodore 

Commodore presenteerde de MPS 1224 C kleuren-prin- 
ter. Deze printerserie zal de 2000 en de 2010 machines 
gaan vervangen, en is speciaal voor de Amiga en AT ont¬ 
worpen. Deze 24-naalds matrixprinter heeft bij normale 
printkwaliteit een snelheid van 220 tekens per seconde ( 
bij NLQ 72). De printer is compatible met de Epson LQ- 
1500 en de IBM 24 XL. De printer kan door een eenvoudig 
menu worden ingesteld, en heeft zowel een paralelle als 
een seriële poort. De printbreedte is resp. 136 (Pica) en 
163 (Elite). 

Canon 

Canons nieuwe laserprinters LBP-8IIR en 81IT hebben 
twee papierinvoercassette’s, zodat er met een druk op de 
knop van papierformaat gewisseld kan worden. Model R 



uit Hannover 


kan bovendien tweezijdig printen, een doorbraak in het la- 
serprintwerk. Beide modellen kunnen twee cartridges her¬ 
bergen voor lettertypes e.d. 

Canon komt ook met een bubble-jet printer (BJ-130) die 
een resolutie van 360 dpi kan printen, te vergelijken met 
de nieuwe HP DeskJet. 

De Xerox 3700 is een nieuwe laserprinter die de IBM 
3268/87 of 3776/7 nabootst. Er kunnen per minuut maxi¬ 
maal 24 pagina’s worden gedrukt, waarmee een capaciteit 
van 100.000 pagina’s per maand gehaald kan worden. 
Voor de PC-gebruiker is er een nieuwe kleuren inktjet prin¬ 
ter de 4020. Dit model heeft vier inktkleuren waarmee 
4.000 kleurnuances bereikt kunnen worden in een maxi¬ 
male resolutie van 240 x 120 punten, waarin over een pa¬ 
gina ongeveer 4 minuten wordt gedaan. De printer kan zo¬ 
wel losse vellen, rollen als folie bedrukken. 

Fujitsu 

Deze japanse fabrikant kondigde een ‘nieuwe generatie’ 
printers aan, waaronder een LED-printer en twee lasermo- 
dellen. De RX 7100 LED printer heeft een HP LaserJet + 
emulatie en een resolutie van 300 dpi voor een prijs van 
rond de 4.000 mark. Maximale snelheid 5 pagina’s per mi¬ 
nuut. De RX 7200 en 7300 zijn laserprinters met de meest 
gebruikelijke emulaties. Ze kunnen resp. 12 en 17 pagina’s 
per minutt afdrukken. Standaard resp. 640 en 2.500 KB in¬ 
tern geheugen en prijzen van 8.000 en 17.000 mark. 

Gestetner 

De firma bekend van de stencilmachines liet printers zien 
met de Canon CX en LBP-20 engines. De GLS800 reeks 
print 8 ppm, de GLS2000 20 ppm. Er zijn emulaties voor 
IBM, DEC en Wang computers en voor Diablo, Sprint 5/9, 
NEC en QMS. 
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Computerspelletjes winnen nog steeds 
aan populariteit. Dat blijkt ook uit het 
spelprogramma ‘It’s all in the Game’ van 
de NCRV. Een uniek samenwerkings- 
projekt gaat er nu voor zorgen, dat de 
TV-games uit dat programma ook thuis 
kunnen worden gespeeld. 




Presentator Henk Mouwe met enkele kandidaten. 


D e NCRV, René Stokvis Produkties en Sala Communications hebben ge¬ 
meenschappelijk een uniek projekt opgezet. De computergames, die dit 
spelprogramma de revue zullen passeren, kunnen op diskette besteld wor¬ 
den, waardoor de kijkers nu ook zelf aktief met de spelletjes ‘in de slag’ kun¬ 
nen. 


It’s All in the Game is vanaf dit seizoen 
elke maand op maandagavond te zien 
na het journaal van acht uur. Presen¬ 
tator Henk Mouwe test dan de behen¬ 
digheid van een achttal kandidaten (in 
twee teams) op het gebied van com¬ 
puterspelletjes. De formule blijkt uit¬ 
stekend aan te slaan getuige de kijk¬ 
cijfers. 

Thuis spelen 

Om meer mensen de mogeljkheid te 
bieden de spelletjes te spelen, is nu 
besloten de games ook op een disket¬ 
te uit te brengen. In overleg met René 
Stokvis Produkties (de bedenkers van 
dit programma) en de NCRV zal Sala 
Communications (uitgever van diver¬ 
se computer-magazines, waaronder 
Commodore Info) de produktie en ver¬ 
koop van diskettes gaan verzorgen. 
Zo kunnen ook de thuisblijvers en de 
fervente computergame-spelers hun 
eigen kwaliteiten testen met dezelfde 
spelletjes als in de programma’s aan 
de orde zullen komen. 

Diskette I (Alleen voor C-64/128) 

Op de eerste diskette staan de vol¬ 
gende spelletjes: 

° Balletje de Luxe 

één balletje, zes dopjes, en maar 
raden... 

° Schuif Schuif 

3 logo’s, 8 dopjes. Schuiven in een 
oogwenk. 

° Medeklinkers 

16 cotegorieën, vele honderden 
woorden, maar... géén medeklin¬ 
kers! 


Aanvragen 

Bestellen van de diskettes met daarop 
de games kan eenvoudig door ƒ 19,95 
overte maken op gironummer 1585491 
t.v.n. Sala Communications te Am¬ 
sterdam met vermelding: it’s all in the 
game’. U kunt ook een girobetaalkaart 


opsturen naar Postbus 5570, 1007 AN 
Amsterdam (ook hierop niet vergeten te 
zeggen, welke diskette u wilt ont¬ 
vangen). 

Natuurlijk kunt u voor al deze infor¬ 
matie ook naar het programma kijken, 
dan heeft u dubbel plezier! 
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TRIPLE 128 


Met ingang van dit nummer zal Commodore Info een aantal pagina’s wijden speciaal aan de C128/D. 
Schrijvers Johan en Johan hopen in deze rubriek hun enthousiasme over de Cl28 over te brengen op oude 
en nieuwe gebruikers. Veel plezier. __ 



TRIPLE 128 


Wie zijn Johan & Johan? 

Johan & Johan zijn twee program¬ 
meurs die naast hun normale baan 
een aantal zeer handige zaken voor de 
C128/D zullen publiceren. Dit duo 
heeft al diverse programma's helpen 
ontwikkelen. Vaak was dit achter de 
schermen, dus waarschijnlijk zeggen 
de namen u niets. Wij zullen in het 
vervolg een aantal pagina's vullen 
met allemaal handige tips en ontdek¬ 
kingen omtrent de Commodore 
128/D. Wij vragen bij deze de mede¬ 
werking van alle C128/D gebruikers. 

Indeling TRIPLE 128. 

De zogenaamde 'Hardware Freaks' 
onder ons zullen wij van dienst zijn in 
een speciale rubriek. Ook zal er elke 
keer een 'Software' TEST, van een 
C128 programma worden gepubli¬ 
ceerd. Deze keer is dat het program¬ 
ma 'FAST 128' van Radarsoft. Vanaf 


de volgende keer zal er een Vragen 
rubriek komen. Dit speciaal voor onze 
lezers die gebruik maken van een 
C128/D. Vergeet dus niet uw vragen 
en oplossingen naar ons op te sturen! 
Ja natuurlijk kunt u nog steeds uw ei¬ 
gen tips en truuks naar Commodore 
INFO insturen. Die tips en truuks mo¬ 
gen ook wel simpel wezen hoor! Als 
ze maar werken! Werkende tips zul¬ 
len wij proberen te publiceren. Op 
deze manier kan een ander er ook van 
'snoepen'. 

Wat gaan we doen? 

Een heleboel verschillende dingen. 
Maar er zijn nog genoeg personen die 
bar weinig over de C-128 weten zodat 
wij op een laag pitje zullen moeten be¬ 
ginnen. Binnen de kortste keren zal 
dit lage pitje een 'helse brander' wor¬ 
den! Dus alle lezers die gebruik ma¬ 
ken van een C128/D zullen niet meer 
weg te branden zijn van hun Commo¬ 
dore INFO. In de hoogste versnelling, 
en als in een turbo mode zullen star¬ 
ters beginners worden. In diezelfde 
mode zullen de gevorderden onder 


VRAGEN 


Het insturen van vragen. 

Om een antwoord te krijgen op uw 
vraag zult u het volgende moeten 
doen. Ten eerste zult u de door u ge¬ 
bruikte hardware moeten omschrij¬ 
ven. Noteer de type nummers en het 
merk van de door u gebruikte hard¬ 
ware. Vaak kunnen wij niets zonder 
deze broodnodige informatie. Voor 
de retourzending dient u te zorgen 
voor een retourenvelop. Deze enve¬ 
lop zal vergezeld moeten zijn van 
voldoende postzegels. Alles even op 
een rijtje. Naam, Adres, Woonplaats 
(de zogenaamde N.A.W. gegevens 
voor ons bestand.) postcode, tele¬ 
foonnummer en uw leeftijd. Dus 
voor vragen op en/of aanmerkingen 
kunt u vanaf nu TRIPLE 128 nemen. 
Wat voor soort vragen? 

Van alles; bijvoorbeeld: Ik krijg het 
maar niet voor elkaar om een 80 ko¬ 


lommen scherm aan te sluiten op 
mijn C128. Wat kan ik hieraan doen? 
Zo'n vraag vraagt om een antwoord, 
gezien het karakter van deze vraag 
zullen wij deze in onze 128 afdeling 
TRIPLE 128 publiceren! Op die ma¬ 
nier heeft iedereen er wat aan. Er zijn 
immers nog genoeg mensen die met 
een gewone TV werken! Tot zover 
deze inleidende tekst, en zullen we 
dan nu maar snel beginnen met de 
hardware afdeling van TRIPLE 128? 
Lees verder en geniet van uw Com¬ 
modore INFO. Wij zijn er immers 
niet voor niets! 

Ons adres is: 

Postbus 43048,1009 ZA Amsterdam 

P.S. Bij voorkeur dient u gebruik te 
maken van een getypte brief. Dit om¬ 
dat niet iedereen het 'spijker-vrije' 
handschrift heeft. 


ons, een echte EXPERT worden! Zo 
zullen wij diverse hard-ware projec¬ 
ten opstarten. Ook zullen wij software 
tips niet vergeten. Tevens zullen we 
een start maken met C64/C128 con¬ 
versie. Met behulp van deze tekst 
wordt het mogelijk om C64 modem 
programma's om te zetten voor ge¬ 
bruik op de C128. 

De gebruikte lektuur. 

Ter ondersteuning bij het werken met 
de C128 gebruiken wij vele boeken 
van diverse uitgevers. Natuurlijk al¬ 
lereerst de handleiding van de com¬ 
puter zelf. Verder de INTERN van Da- 
tabecker, TIPS & TRUCS van dezelfde 
uitgever, The PROGRAMMER'S REFE- 
RENCE GUIDE van Bantam Computer 
Book, verder hebben wij de beschik¬ 
king over diverse ROM listings van de 
C128. Zo ook de SERVICE MANU AL van 
de C128. Voor de CP/M mode gebrui¬ 
ken wij de USER'S GUIDE, PROGRAM¬ 
MER'S GUIDE en de SYSTEM GUIDE van 
DIGITAL RESEARCH. Alle door ons ge¬ 
bruikte boeken kunt u tegen de nodi¬ 
ge betaling verkrijgen bij 'Computer¬ 
collectief'. Het adres is: 

Amstel 312 1017 AP Amsterdam. 
Voor onze zuiderburen is dat: 

Het Computerwinkeltje pvba 
M Sabbestraat 39, B-2800 Mechelen. 

De gebruikte hardware. 

Als hardware hebben wij, de redactie 
van TRIPLE 128, twee maal een losse 
C128, een 1570, twee maal een 1571 
met snellader en één 1581 disk-drive 
die gebruik maakt van 3.5 inch disket- 
te's. Als printer gebruiken wij een KX- 
P1081 van Panasonic en een LX 800 
van Epson. Natuurlijk hebben wij een 
RAM expansion unit (type 1750). Ónze 
redactiecomputers zijn uitgerust met 
de Power Booster van Master Genius. 
Hiermee hebben wij een maximale re¬ 
solutie van 1024*1024 in interlace 
mode. Met onze C-128 kunnen wij 
dan ook rustig IFF file's van de AMI- 
GA inlezen. Als monitor maken wij 
gebruiken van de NEC Multisync en 
een ANCONA 40/80 monochroom mo¬ 
nitor. Tot zover de door ons gebruik¬ 
te hardware. 

Johan & Johan. 
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In de hardware rubriek zullen wij voortaan onderdelen van de C128/D hardware toelichten. Tevens zullen er 
in de toekomst verschillende hardwareprojecten gaan verschijnen om de C128/D op eigen houtje uit te brei¬ 
den en/of te verbeteren. Randapparatuur zoals diskdrive’s, printers en monitoren zullen ook in deze rubriek 
worden getest. Met de resultaten die er in deze rubriek geplaatst zullen worden hopen wij u een beter zicht 
te geven op de vele verschillende fabrikaten en soorten randapparatuur. Wij zullen er tevens rekening mee 
houden dat er onder u personen zijn die het ‘gevaarlijke’ pad der computers nog maar net aan het bewan¬ 
delen zijn. Tenslotte zijn we allemaal eens begonnen. 


De C128/D 


Het ontwerp van de Commodore 128 
(afgekort Cl28) ivas geen gemakkelij¬ 
ke taak. De nieinve computer moest 
ook de bestaande C64 programmatuur 
kunnen verwerken. Men heeft dit pro¬ 
bleem opgelost door de computer in 
drie verschillende modi te laten draai¬ 
en. En er moest ook CP/M softivare op 
de nieuwe computer kunnen draaien. 
Voor de CP/M mode werd de Z80B 
van Zilog op de tekentafel geplaatst. 
De C128 mode moest sneller en meer 
ram kunnen aanspreken. De 8502 mi¬ 
croprocessor moest zowel de C64 als 
de C128 mode kunnen bedienden. Voor 
het gemak werd het weer een 8 bits 
computer. 

Om goed met CP/M te kunnen wer¬ 
ken werd er een 8563 VDC chip in het 
ontwerp opgenomen. Toen men toch 
bezig was moest het geen probleem 
meer wezen om het 80 cis ook in de 
ewone C128 mode te kunnen gebrui- 
en. Om problemen te vermijden 
moest later de C64 80 cis mode ver¬ 
dwijnen. Men moest zich in de C64 
mode maar weer met het 40 cis be-hel- 
pen. Voor de C64 mode koos men 
voor de oude basic/kernal ROM. 
Voor de C128 mode moest er een ge¬ 
heel nieuw en krachtig basic/kernal 
besturingssysteem worden ontwik¬ 
keld. Wie er voor de C64/C128/ 
CP/M verantwoordelijk zijn moet u 
met 37532800,123,45,6 kunnen oproe¬ 
pen. Met uitzondering van de jaba 
/ isan copy kernal. Wij maken er u op 
attent dat deze programmatuur door 
'roof is verkregen. U benadeelt bij 
aanschaf de programmeurs die deze 
software hebben ontwikkeld! 

De processor 

Er zijn twee microprocessors in de 
C128 aanwezig. Dit zijn de 8502 en de 
Z80B van Zilog. De eerste is geschikt 
voor zowel de C64 als de C128 mode. 
Deze processor draait op max. 2 Mhz. 
De microprocessors worden geklokt 
door de VICII 8564 chip. In de C64 
mode op 1 mHz en in de CP/M mode 
4 Mhz. In de C128 mode kunt u ge¬ 
bruik maken van zowel de 1 als de 2 



Mhz mode. In basic (7.0) kunt u met 
het commando TAST' naar de 2 Mhz 
mode overschakelen. Met het basic 
commando 'SLOW' kunt u weer naar 
de 1 Mhz mode terugschakelen. Ook 
kunt u in plaats van fast poke 53296,1 
gebruiken. Voor slow kunt u poke 
53296,0 gebruiken. Voor het gemak 
vermelden wij hier dat het om adres 
$d030 gaat. Bij het gebruik van de 2 
Mhz mode wordt het 40 cis uitgescha¬ 
keld. U kunt dan alleen gebruik ma¬ 
ken van het 80 cis. Bij de 2 Mhz mode 
zal bij het aanspreken van de I/O 
componenten hardwarematig wor¬ 
den teruggeschakeld naar de 1 Mhz 
mode. Het 40 cis zal nog steeds niet 
beschikbaar zijn. 

De modi 

Het is met de Cl 28 dus mogelijk om 
C64 software te draaien. Vaak alleen 
in de C64 mode en soms, met simpele 
basic programma's, in de C128 mode. 
Zie ook het artikel over conversie. Met 
het basic commando 'GO 64' kunt u 
de C64 mode oproepen. Ook de com¬ 
puter aanzetten en daarbij de Com¬ 
modore toets ingedrukt houden 
werkt. Met sysdec ("e24b") kunt u de 


Cl 28 in een C64 omtoveren. Er is nog 
een manier waarvan het programma 
Chessmaster 2000 gretig gebruik 
maakt. Dit programma is dus gewoon 
een C64 programma wat door middel 
van een programma in de boot sector 
overschakelt naar de C64. Zonder dat 
u het in de gaten heeft zit u in de C64 
mode. Kijk maar eens met een disk- 
monitor op track 1, sector 1! En zo zijn 
er nog velen die op de bovenstaande 
manier de boel proberen te 'flessen'. 

De behuizing 

Als je de C128 voor het eerst ziet valt 
direct het enorme verschil met de C64 
op. De computer is in zijn geheel in 
een zeer fraai uitgevoerde kast gesto¬ 
ken die tevens zeer gemakkelijk over¬ 
al kan worden neergezet. Het toetsen¬ 
bord is er vergeleken met dat van de 
C64, het zogenaamde haaientanden 
wasbord, zeer op vooruit gegaan, het 
slaat lekker licht aan en heeft een zeer 
lange levensduur. Ons toetsenbord 
'leeft' na twee jaar nog steeds terwijl 
wij twee C64 toetsenborden per jaar 
nodig hadden. Zeer handig is het nu¬ 
merieke toetsenbord aan de rechter¬ 
kant. Vooral als er zeer veel data inge¬ 
typt moet worden. Verder zijn de cur- 
sortoetsen zowel op de C64 plaats als 
een paar losse toetsen rechts boven 
het alfanummerieke toetsenbord uit¬ 
gevoerd. De cursortoetsen en het ex¬ 
tra keypad kunnen echter standaard 
niet in de C64 mode gebruikt worden 
maar hier valt met een aantal truuks 
wel wat aan te doen. In een volgend 
nummer zullen wij dit publiceren. 

Tot 512 k extra RAM. 

Er bestaat de mogelijkheid om via de 
cartridge poort het systeem met nog 
eens maximaal 512K RAM uit te brei¬ 
den. Maximaal heeft u dus 640 KB en 
dat is net zo veel als een PC. Dit ge¬ 
heugen wordt door het systeem inge¬ 
deeld in blokken van 64K RAM. Deze 
64K RAM wordt een bank genoemd, 
zodat we 'banking' toe moeten passen 
om het gehele geheugen te kunnen 
gebruiken (dit omdat het een 8 bits 
computer is en die kan maximaal 64 
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Kbyte adresseren). Gelukkig onder¬ 
steunt BASIC dit met behulp van het 
commando 'BANK'. Er zijn verschil¬ 
lende routines standaard in het ge¬ 
heugen aanwezig om data van het ene 
deel naar het andere deel van het ge¬ 
heugen te verplaatsen. De belangrijk¬ 
ste zijn de FETCH en STASH routines. 
Deze routines werken erg snel, en in 
de praktijk zal er bijna nooit op het 
verplaatsen van data gewacht hoeven 
te worden. Basic gebruikt bank 1 voor 
het opslaan van de variabelen. Zodat 
bank 0 gebruikt kan worden om een 
basic programma in op te slaan. Het is 
ook mogelijk om in bank 1 een twee¬ 
de programma op te slaan. Op deze 
manier werken de programma's Su¬ 
perbase en Superscript samen. Het 
programma Superbase in bank 0 en 
Superscript in bank 1. 

Zijn opvolger 

De Commodore 128/D is een speciale 
uitvoering van de C128 die na de los¬ 
se Cl28 op de markt kwam. De 
C128/D is in een systeemkast onder¬ 
gebracht met een Commodore 1571 
diskdrive. De print die zich in de 
C128/D bevindt is bijna identiek aan 
die van de 'losse' C128. De voeding is 
tevens in de kast ingebouwd zodat er 
meteen een snoer uit het stopcontact 
in de computer gestoken kan worden. 
Verder is het voordeel natuurlijk dat 
er geen lastige snoerenboel achter de 
computer ligt. Iets wat bij de losse ver¬ 
sie van de C128 wel het geval is. Te¬ 
vens beschikt de C128/D over een los 
toetsenbord dat met een kabel met de 
systeemkast verbonden is. Deze kabel 
is eigenlijk aan de korte kant. Er is een 
handvat aan de zijkant van de compu¬ 
ter gemonteerd wat hem por-table 
(lees versleepbaar) maakt. 

De aansluitingen 

De aansluitingen voor de randappa¬ 
ratuur zijn voor de C128 en de 
C128/D natuurlijk hetzelfde (de print 
is identiek). Deze aansluitingen be¬ 
staan uit verschillende connectoren 
en zijn zo gekozen dat men de rand¬ 
apparatuur niet op verschillende (lees 
verkeerde) manieren kan aansluiten. 
We zullen de verschillende in- en uit¬ 
gangen van de C128 in het kort be¬ 
spreken. 

De game-poorten 

Deze poorten bevinden zich zowel bij 
de C128 als de C128/D aan de rechter¬ 
kant van de computer. Hier bevindt 
zich ook de reset en aan/uit schake¬ 
laar. Bij de C128/D zit de aan/uit 
schakelaar aan de linkerkant. Ook zit 
hier bij de C128/D de drive reset knop 
verscholen. Deze knop is alleen met 
een lang en dun voorwerp te bedie¬ 


nen. Bij deze een tip! Wanneer de 
computer 'hangt' schakel dan niet di¬ 
rect de computer uit maar probeer 
eerst de reset knop. Dit omdat het 
vaak snel uit/aan schakelen van de 
C128/D schadelijke gevolgen kan 
hebben. De game poorten zijn be¬ 
doeld om joysticks, paddles of even¬ 
tueel een muis op aan te sluiten. Al 
deze apparaten zijn voor de C128/D 
te verkrijgen. Tevens is het mogelijk 
om via deze game poorten twee A/D 
converters aan te spreken die zich in 
de geluidschip bevinden. Dit is echter 
zeker voor de beginner geen gemak¬ 
kelijk stof. Wat je met joysticks kan 
doen weet iedereen wel. 

De expansion poort 

Deze poort die rechts achter op de 
computer zit is bedoeld om de com¬ 
puter later met hardware uit te brei¬ 
den. Om zo bv een cartridge in te 
plaatsen (wie kent de Power Cartrid¬ 
ge nu niet). Deze poort was ook al op 
de C64 aanwezig, en kan ook in de 
Cl28 mode gebruikt worden. De 
RAM-uitbreidingen voor een extra 


groot geheugen worden in deze poort 
gestoken. Zo is het mogelijk om bv ex¬ 
tra ROM in deze poort te plaatsen. 
Viza Ltd. maakt gebruik van deze 
poort voor hun 'software beveiliging'. 

De cassette poort 

De cassettepoort was al op de PET van 
Commodore aanwezig. De C128/D 
had de eerste Commodore home¬ 
computer kunnen worden die deze 
poort niet had. Deze cassettepoort is 
echter aangebracht om de compatibi¬ 
liteit met de C64 te behouden. De 
meeste C128/D softwarepaketten on¬ 
dersteunen de cassette recorder niet 
eens. Voor de C128 mode is deze 
poort totaal overbodig geworden. Het 
zou leuk zijn wanneer er iemand was 
die een programma had dat in de 
C128 mode werkt, en het mogelijk 


maakt om de cassetterecorder te ge¬ 
bruiken als 'tape streamer' voor back- 
up doeleinden. 

De seriële poort 

Deze verschilt wel wezenlijk van de 
seriële bus die de C64 bezat, hij is in de 
C64 mode exact gelijk aan de seriële 
bus in een C64. Maar in de 028 
wordt hij omgetoverd in een zoge¬ 
naamde rast seriële bus wat zo'n 8 
maal sneller werkt (in de CP/M mode 
zelfs zo'n 14 maal sneller). Hoe deze 
bus werkt zal in de nabije toekomst 
nog wel eens precies uitgelegd wor¬ 
den. De seriële bus is net als bij de C64 
van het zogenaamde 'daisy chain' 
principe. Alle apparaten die. aan de 
seriële bus worden aangesloten (prin¬ 
ter en diskdrive) moeten worden 
'doorgelust'. Dit houdt in dat er een 
kabel van de computer naar het appa¬ 
raat loopt en een Kabel van het appa¬ 
raat naar het andere apparaat. Dit 
heeft als voordeel dat er niet zoveel 
draden uit de computer naar de rand¬ 
apparatuur hoeven te lopen. In één 
van de volgende nummers zullen wij 


een programma publiceren dat het 
mogelijk maakt om ook in de C64 
mode met 1328 blocks op schijf te wer¬ 
ken. Vooral de C64 B.B.S. freaks onder 
ons zullen dit waarderen. Met het 
door ons gepubliceerde soft/hardwa- 
reproject kunt u vanaf dan net zo snel 
in de C64 mode gebruik maken van 
de 1570/71 snelheid die gebruik ma¬ 
ken van de snelle seriële bus. 

Audio/video uitgang 

Deze uitgang is geschikt voor de 40 cis 
display mode. U kunt dus zowel in de 
C64 als de C128 mode gebruik maken 
van deze uitgang. Omdat er echter 
een aparte videochip voor de 80 cis 
mode is gemaakt, is het mogelijk om 
in de C128 mode tegelijkertijd van zo¬ 
wel het 40 als het 80 cis gebruik te ma¬ 
ken. Op deze uitgang staat tevens het 



24 


Commodore Info 3/88 


24 





Hardware 


TRIPLE 128 


audiosignaal. Dit audiosignaal zorgt 
voor het geluid wat de SID chip kan 
produceren. Zo kunt u dit signaal aan 
de stereo installatie overdragen zodat 
het geluid veel beter wordt weergege¬ 
ven. Deze uitgang noemen we ook 
wel de composite video uitgang. 

HF uitgang 

De HF uitgang is een hoogfrequent 
uitgang. Deze uitgang kan zonder 
problemen direct met een televisie¬ 
toestel worden verbonden. Dit is het 
gemoduleerde 40 cis video en audio 
signaal. 

RGBI uitgang 

Deze uitgang is een enorme vooruit¬ 
gang. De RGBI uitgang kwam niet op 
de C64 voor. Deze uitgang komt di¬ 
rect van de 80 cis videochip af en be¬ 
vat de gescheiden Rood Groen en 
Blauw signalen. De benodigde syn¬ 
chronisatie signalen zijn natuurlijk 
ook op deze uitgang te vinden. De 80 
cis videochip maakt de C128/D tot 
een professionele machine. Van deze 
80 cis mode kan ook in de CP/M 
mode gebruik worden gemaakt. Met 
deze uitgang kunnen we over 16 kleu¬ 
ren beschikken. Dit omdat het hier 
een analoge- maar digitale uitgang 
etreft. Over het hoe en wat komen 
wij later nog terug. U kunt dus een 
RGB monitor of een composite moni¬ 
tor op deze uitgang aansluiten. Voor 
het geluid zult u echter een verbin¬ 
ding moeten maken met de audio/vi- 
deo uitgang. In dit nummer zullen wij 
u uitleggen hoe u zelf zo'n schakelba- 
re verbinding moet maken. 

De userpoort 

De userpoort is voor sommige men¬ 
sen wel de meest belangrijke F/O ver¬ 
binding die er op de computer zit. Op 
deze poort zit zowel een parallelle als 
een seriële poort. De seriële poort kan 
gebruikt worden om een seriële niet 
Commodore printer aan te sluiten. 
Ook kan er op deze seriële aansluiting 
een modem aangesloten worden. 
Deze seriële communicatie zullen wij 
in de nabije toekomst onder de loep 
nemen. Het parallelle gedeelte van de 
userpoort, kan gebruikt worden om 
printers aan te sturen die zijn uitge¬ 
rust met een zogenaamd Centronics 
interface. Deze printers kan men of 
via een programma of via een cartrid- 
ge aansturen. Zo is het bijvoorbeeld 
met de Power Cartridge of Final Car- 
tridge, en de benodige kabel, hele¬ 
maal geen probleem meer. Ook kan 
men via deze userpoort robotjes be¬ 
sturen, dus voor de echte electronica 
fanaten kan de lol helemaal niet meer 
op. Over deze poort is dus bijna alles 
mogelijk. Er zijn snellaadsystemen op 


de markt die de laadtijd van de disk¬ 
drive met 35 maal versnellen. De 
overdracht gaat dan via de parallelle 
poort. Tot zover de aansluitingen van 
de C128/D. 

De binnenkant 

Natuurlijk is er binnen de computer 
ook heel wat veranderd. Zo is er nu 
meer RAM geheugen in de computer 
aanwezig. In de computer zitten ook 
meerdere besturings-systemen. Dit 
moet natuurlijk ook om in de C64 
mode te kunnen werken. Er bevinden 
zich in de computer twee videochips. 
Dit zijn de 40 cis VICII chip en de 80 
cis 8563 videochip. Voor de I/O zitten 
er twee CIA'S (6526) in de C128/D. Er 
een speciaal IC ontwikkeld om het ge¬ 
heugen te beheren. Onder de naam 
MMU (memory managment unit) is 
deze op de print aangebracht. De 
print ziet er erg verzorgd en degelijk 
uit. En dan komen we nu bij de Z80B 
processor van Zilog aan. Deze Z80 mi¬ 
croprocessor heeft in de C128 de taak 
om met CP/M te kunnen werken. 

CP/M op de C128 

In de CP/M werkstand hebt u met de 
ingebouwde Z80 microprocessor alle 
mogelijkheden van de CP/M Plus 
versie 3.0 van Digital Research. Buiten 
de standaard commando's heeft 
Commodore er zelf ook nog wat aan 
toegevoegd. Met CP/M heeft u de be¬ 
schikking over zowel het 40 als 80 cis. 
Maar het gebruik van het 40 cis is niet 
aan te raden. Met het CP/M Plus pak¬ 
ket van Commodore heeft de gebrui¬ 
ker de beschikking over 59 TPA's 
(Transient Program Areas). Het be¬ 
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sturingssysteem wordt van de CP/M 
systeemdiskette ingelezen. U kunt dit 
doen door de CP/M systeem disk in 
de drive te plaatsen en de computer te 
resetten of uit/aan te schakelen. Ook 
met het basic commando 'BOOT' 
kunt u het CP/M Plus systeem in¬ 
schakelen. De diskdrive's met type 
nummer 1570/1/2 zullen als het ware 
in de turbomode worden gezet. Met 
een RAM uitbreiding kunt u gebruik 
maken van een RAM disk. Met de 
door ons gebruikte RAM expansie 
module (1750/512K RAM) hebben 
wij de beschikking over een 512K 
RAM-DISK. Gezien de snelle interne 
verwerking bij het verplaatsen van 
data is dit supersonisch snel. Met zo'n 
RAM module heeft u nu als het ware 
een tweede diskdrive. Het nieuwe 
hiervoor benodigde CP/M systeem 
wordt standaard bij de module gele¬ 
verd. 

Marktprijs 

Voor de personen onder ons die graag 
een C128 willen aanschaffen volgt 
hier een prijsindicatie. Een tweede¬ 
hands computer verliest de eerste dag 
al 30% van de nieuwwaarde. Een los¬ 
se C128 mag niet meer dan ƒ 400,- kos¬ 
ten. De C128/D mag zo ƒ 750,- kosten. 
Deze beide prijzen kunnen gebruikt 
worden als indicatie bij de aanschaf 
van een goed exemplaar zonder ver¬ 
dere randapparatuur. 

Toetsenbord kabel 

Het toetsenbord van de C128/D is 
met een kabel aan de computer ver¬ 
bonden. Omdat het niet zo'n geweldi¬ 
ge lange kabel is volgt hier de oplos¬ 
sing. En wij vermelden er direct bij dat 
het echt handig is om zo'n lange kabel 
te bezitten! De bouw van deze kabel- 
verlenger is door een ieder met alle 
gemak van de wereld te maken. Aan 
een soldeerbout en een stuk kabel 
heeft u bijna genoeg. Dat wil zeggen u 
dient nog twee sub D connectors aan 
te schaffen. Deze sub D's kosten zo'n 
ƒ4.50 met kapje. Het is aan te raden 
om een kapje om de connector te 
monteren, die zijn los te koop, en kos¬ 
ten zo'n ƒ 1,50 per stuk. Voor een klei¬ 
ne ƒ17,50 heeft u een pracht van een 
kabel. Wij hebben u al verteld dat de 
bouw simpel is maar wat moet u 
doen. Gewoon, laten we maar draden 
zeggen, van de ene connector naar de 
andere aanleggen. Zo verbindt u pen 
één van de ene conector aan pen één 
van de andere conector. U dient in to¬ 
taal 25 verbindingen te maken. De 
pen nummering is op de connector 
vermeld. Een kwestie van goed uit de 
doppen kijken dus want kortsluiting 
kost u een zogenaamde CIA (6526). 
Dat is dan ƒ 50,00 ring ring kassa! 
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Software test 


TRIPLE 128 


De software rubriek gebruiken wij elke aflevering voor het bespreken van een softwarepakket. De allereer¬ 
ste keer nemen wij een sofwarepakket van vaderlandse bodem onder de loep. Het pakket wordt door de 
niet geheel onbekende firma Radarsoft op de markt gebracht en heet F AST 128. 



FAST 128 is een software ontwikke¬ 
lingsprogramma dat in zowel de 40 
als 80 kolommen mode werkt. FAST 
128 werkt alleen in de C128 mode. 
Maar u kunt ook softivare voor ande¬ 
re (6502/6510/8502) georienteerde 
computers ontwikkelen. Zo kunnen 
we dus in de C128 mode software ont¬ 
wikkelen voor bijvoorbeeld de C64. 
Het ontwikkelen zal veel sneller gaan 
omdat er voor de C64 niet zulke ge¬ 
weldige assemblers zijn. Met name de 
snelheid en opslag zijn hier in het ge¬ 
ding. FAST 128 is een must voor alle 
machinetaal programmeurs. Fast is 
een tivopass assembler/disassembler. 

Voordelen 

Stelt u zich eens voor, u wilt een stuk 
machinetaal ontwikkelen voor het 
een of ander. In de ontwikkelingsfase 
zet u, als u goed te werk gaat, alles op 
papier. Na deze ontwikkeling gaat u 
uw code invoeren met behulp van de 
ingebouwde monitor! Na het weg¬ 
schrijven naar disk wilt u het pro¬ 
gramma even testen. Tijdens de test 
blijken er nog fouten in uw ontwerp te 
zitten! Nu komt het grote probleem 
van de monitor om de hoek, (daar zal 
menigeen het met ons over eens zijn). 
Het VERPLAATSEN/AANPASSEN van de 
zojuist ingevoerde machine-code. Al¬ 
le routine's zullen moeten worden 
aangepast. En dat VREET tijd van heb 
ik jou daar. Dat dit bij grotere pro¬ 
gramma's helemaal geen doen meer is 
kan iedereen wel begrijpen. Dat wil 
zeggen, dit kost de gemiddelde hobby 


programmeur al gauw een paar da¬ 
gen. Wij moeten er helemaal niet aan 
denken om in de ingevoerde machi¬ 
netaal iets te moeten tussenvoegen. 
Stelt u zich eens voor, u heeft wat over 
het hoofd gezien en moet 5 rottige 
byte's toevoegen! U kunt mischien 
uw routine's nog wat inkorten, en zo 
over uw programma heen JUMPEN 
naar een andere subroutine, maar dat 
is water naar de zee dragen! En vaak 
is het helemaal niet eens mogelijk. In 
FAST 128 had u nu gewoon een regel 
(of meerdere) tussengevoegd. En 
daarmee was de kous af. Even door de 
assembler heen, wegschrijven en 
weer testen. Programmeur Lex Boere 
kan daar vast. over meespreken! En 
gezien het aantal goede assemblers 
(0,0) naast FAST 128 heeft hij (waar¬ 
schijnlijk) gedacht 'daar maak ik een 
eind aan!' 

FAST en Triple 128 

In het vervolg wanneer wij een stuk 
machinetaal plaatsen, zullen wij er 
voor zorgen dat er ook een 'FAST lis- 
ting' in het blad wordt afgedrukt! Al¬ 
weer een reden om FAST 128 in de 
software-bak te halen. Hierbij vragen 
wij de personen die een machinetaal 
routine naar ons willen opsturen 
a.u.b. een FAST 128 listing bij te voe¬ 
gen. Daar kunt u dan ook tekst bij 
plaatsen waardoor we de routine niet 
eerst moeten bestuderen. 

En de monitor dan? 

Alle andere assemblers en monitoren 
kunnen na het verschijnen van FAST 


128 de prullebak in. Waarom? Hier 
volgt een tweede voorbeeld. U heeft al 
geruime tijd terug een routine ont¬ 
wikkeld. Ü moet die nu aanpassen. 
Dat is in de monitor, na langere tijd, 
niet zo eenvoudig. U zult op de bo¬ 
venkamer moeten vertrouwen. Maar 
wat als de grijze cellen het laten afwe¬ 
ten? Met FAST 128 heeft u daar geen 
last van, gewoon uw programma van 
tekst en uitleg voorzien! Op deze ma¬ 
nier weet u tenminste na enige tijd 
ook nog wat u met een routine bedoel¬ 
de. Wij spreken uit ervaring, en u kunt 
van ons aannemen dat zo'n assembler 
fantastisch is. Wij hebben zelf wel 
eens het volgende gezegd. Citaat: 
'Wat doen 'ZE' hier nu weer' Die 'ZE' 
waren wij zelf. Na een jaar waren we 
de gehele routine al weer vergeten, en 
onze documentatie was verloren ge¬ 
gaan. Een grote frustratie als je met 
zogenaamde 'DEADLINE'S' te ma¬ 
ken hebt. Door het aanschaffen van 
FAST 128 kunt U die frustratie voor¬ 
komen. Neem van ons aan dat je dat 
niet lekker zit, wanneer een collega 
programmeur je er op moet attende¬ 
ren wat je zojuist hebt gezegd. Wij 
hadden bij hem het idee gewekt dat 
de routine was 'geleend'. U voelt hem 
al aankomen dachten wij zo. Wij we¬ 
ten het zo'n monitor hoef je niet in te 
laden maar is bij lange na niet zo 
krachtig als FAST 128. Bovendien, dat 
inladen is ook geen probleem, en gaat 
bovendien snel genoeg. 


26 


Commodore Info 3/88 



TRIPLE 128 


Software test 


De FAST editor 

U bent als het ware in een editor aan 
het werk. En dit zal voor de aspirant 
machinetaal programmeur een hele 
opluchting zijn. Er zijn drie invoer- 
modi: de gewone basic mode, de mne- 
monics mode om assembly instructies 
kompakt op te kunnen slaan en als 
laatste de tekst mode. Fast is dus een 
soort editor zoals de basic interpreter 
maar dan in een hele luxe vorm. Het 
uiterlijk is niet fraai maar u kunt nu 
machine-code invoeren. Fast maakt 
gebruik van regels om de code op te 
plaatsen. Na het invoeren kunt u de 


'broncode' zoals deze wordt ge¬ 
noemd, vertalen met de assembler. 
Ook kunt u met Fast bestaande ma¬ 
chine-code vertalen in zo'n broncode. 

Basic en FAST 

U kunt natuurlijk ook gewoon in ba¬ 
sic programmeren en waar nodig in 
machinetaal. Waar nodig? Ja, waar 
basic te traag is, en het dus laat afwe¬ 
ten, grijpt u met machinetaal in! Ook 
weer een voordeelvan FAST 128 dat 
als één van de weinige met basic kan 
samenwerken. Dus voor de persoon 
die in machinetaal wil gaan werken is 
FAST 128 de stap in de goede richting. 

Het gebruik 

Natuurlijk zullen er al vele personen 
met deze asssembler aan het werk zijn 
en is het inmiddels gesneden koek. 
Maar voor de personen die nog niet 
aan de machinetaal zijn toegekomen 
is nu het moment aangebroken voor 
dit prachtige stuk gereedschap. Met 
het commando 'bnk' kunnen we er 
voor zorgen dat de code in die betre- 
fende bank zal draaien. De regels 
waarop de code staat kunnen we een¬ 
voudig hernummeren. We kunnen 
met FAST 128 gebruik maken van 'la¬ 
bels' en door die 'labels' kunnen we 
erg snel te werk gaan. Ook kunnen we 


I subroutine's heel eenvoudig aanroe¬ 
pen. Wat dacht u van 'jsr invoer', om 
een karakter op te halen, dat is heel 
eenvoudig vergeleken bij 'jsr$2345'. 
Want laten we nu eerlijk zijn 'jsr in¬ 
voer' is en blijft beter te onthouden. 
Op deze manier kunnen we een hele 
bibliotheek opbouwen met subrouti¬ 
ne's die u later weer kunt gebruiken 
; bij het ontwikkelen van andere soft¬ 
ware. Dus die labels zijn een hele 
kracht bij het onwikkelen van uw 
software. U kunt een sourcefile achter 
de bestaande file in het geheugen aan 
elkaar plakken. Het opzoeken van 'la¬ 
bels' en opcode's is nu ook gemakke¬ 


lijk te doen. Er een commando waar¬ 
mee u kunt zoeken en vervangen. De 
tab positie's kunnen ook gemakkelijk 
worden ingesteld. In totaal zijn er 28 
verschrikkelijk verslavende comman¬ 
do's in FAST 128 te gebruiken. Fast 
128 is een super snel programma dat 
in 'no-time' de benodigde code voor u 
in het geheugen plaatst. En over op¬ 
slag heeft u ook niet te klagen! Zo'n 
52K byte's kunnen als broncode wor¬ 
den ingevoerd. Dat zijn wel 209 blok¬ 
ken op uw diskette! En heeft u wel 
eens zoveel machinetaal achter elkaar 
gebruikt? Vast niet, maar daarvoor is 
FAST 128 wel geschikt. Waarschijnlijk 
ook omdat de Radarsoft program¬ 
meurs zelf ook zo'n assembler nodig 
hadden. En onder het motto als je toch 
bezig bent Lex! 

Nadeel 

Een groot nadeel is volgens ons dat je 
niet vanuit FAST 128 zelf de zojuist 
geassembleerde code kan wegschrij¬ 
ven, zonder dat je gebruik moet ma¬ 
ken van bsave bla,bla of direct de mo¬ 
nitor moet induiken. Dit zou volgens 
ons een oplossing kunnen wezen, na 
het assembleren de pointers van het 
start en eindadres gebruiken bij het 
wegschrijven van de machine-code! 
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BORDER 

Verhoog borderkleur 
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J MP 

NORMIRQ 

Vervolg normale irq 

290 


END 




De praktijk 

Kort voor het schrijven van deze tekst 
waren wij in Hannover op de 'CeBIT 
88' en wat we daar meemaakten was 
werkelijk de klap op de vuurpijl. Wij 
kwamen daar twee personen van de 
MASTER GENIUS CRACKING 
CREW tegen, die verklaarden daar in 
minder dan een half uur een demo te 
kunnen programmeren, die de daar 
getoonde Commodore Amiga 500 
met zijn demo in 'HIGH-RES' in ver¬ 
legenheid zou brengen. Natuurlijk 
was er niemand die deze uitspraak 
wou geloven. De heren voelden zich 
op hun tenen getrapt, en moesten zich 
bewijzen. Na een uur was er een 
C128/D ,met een dozijn leds en scha¬ 
kelaars, op tafel gezet. Een heel ander 
opsta rtscherm kwam te voorschijn. 
Men schakelde over op, het was bijna 
niet te geloven, 'FAST 128'. Zij waren 
er blijkbaar in geslaagd om 'FAST 128' 
op 'ROM' te zetten. Men had 32 Kby- 
te ROM extra in de 028! Na veel pra¬ 
ten werd een op de beurs geleende 
Nee Multisync aan de C128/D gekop¬ 
peld. En na zo'n 10 minuten werd er 
al getest. Na 13 minuten was het be¬ 
sturingssysteem aangepast. Na 15 mi¬ 
nuten kon de picture worden overge¬ 
zet! Na 19 minuten stond de picture 
die op de Amiga stond, met een veel 
hogere resolutie op het 028 scherm! 
Hiermee verdiende deze heren 'even' 
hun brandstof en het nodige voedsel 
terug! Alle Duitsers werden door 
deze beide heren sprakeloos. Er werd 
daar zelfs gezegd, "En daar heb ik een 
Amiga voor moeten kopen, nu blijkt 
dat 'ding' het ook te kunnen". Bij na¬ 
vraag bleek dat zonder hun versie van 
FAST 128, het NOOIT en te nimmer in 
die korte tijd zou zijn gelukt. Maar het 
zweet stond hun dan ook op het voor¬ 
hoofd. De heer van Markt & Technik 
moest onder veel Duits gejubel zijn 
zojuist verloren weddenschap uitbe¬ 
talen. Het bovenstaande verhaal on¬ 
dersteunt de ware kracht van het pak¬ 
ket. 


Onze conclusie! 

Een geweldig, supersnel, handig en 
buitengewoon gebruikersvriendelijk 
programma met professionele trekjes! 
Een absolute must voor de machine¬ 
taal programmeur, of zij die er over 
denken om in deze taal te gaan wer¬ 
ken. Voor de prijs hoeft u het niet te la¬ 
ten. Dit programma heeft bij ons na er 
mee te hebben gewerkt, een zee van 
rust en perfectie opgeroepen! Bij deze 
willen wij de firma Radarsoft bedan¬ 
ken voor het ter beschikking stellen 
van dit 'SUPER' pakket. 
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RicoGraphic C128 



Omdat dit programma wat Rico van Eeten ons op¬ 
stuurde nogal wat mogelijkheden heeft, is er een 
menu opgenomen. Druk op het pijltje links boven om 
daarin te komen vervolgens op 1 en u krijgt het 
scherm met alle mogelijkheden. De grafische com¬ 
mando’s hebben standaardwaarden die uitgaan van 
de positie van de pijl en werken daardoor erg gemak¬ 
kelijk. Nodig zijn: een joystick, een diskdrive 15xx en 
natuurlijk een Commodore 128 (D) 

94 rem *** ricographic *** 

95 : 

96 rem een grafisch progamma voor cl 
28 

97 : 

98 rem gemaakt door rico van eeten 

99 : 

100 if peek (215) OOthen prinf'dit[SPA 
CE]is[SPACE]een[SPACE]40[SPACE]kar 
akters[SPACE]cl28-progamma[SPACE]! 

" : end 

101 k0=16:kl=l:k4=13:ks=13:gosublll:gr 
aphicl,1 :graphic0, 1 

102 trap 600 

103 fork=3584to3614:pokek, o:nextk 

104 fork=3615to3710:reada:pokek, a:next 
k 

105 goto300 

109 : 

110 spritel,1,ks:sprite2,1,ks:return 

111 colorO,k0:colorl,kl:color4, k4:grap 
hiel:return 

112 fork=lto39:print"-";:nextk 

113 windowO ,2,28,20 

114 print"kleur:[SPACE] 0=achtergr .[SPA 
CE]l=voorgr." 

115 return 

116 window29,2*w-l,39,2*w+l:printchr$( 

17)"[SPACE]"dchr$(145)chr$(145):in 
puta(w):return 

199 : 

200 colorO,1 

201 color4,1 

202 color5,14 

203 graphic0,l 

204 charl,11,1,"[2xSPACE]***[SPACE]men 
U[SPACE]***[2XSPACE]", 1 

205 charl,6,6,"[SPACE]1[2xSPACE]menu[S 
PACE]hires[SPACE]beeldscherm[SPACE 
]",1 

206 charl,6,10,"[SPACE]2[2xSPACE]hires 
[SPACE]beeldscherm[6xSPACE]", 1 

207 charl,6,14,"[SPACE]3[2xSPACE]grafi 
sche[SPACE]comando's[4xSPACE]",1 

208 charl,6,18,"[SPACE]4[2xSPACE]disk- 
comando's[9xSPACE]" , 1 

209 fork=ltol0 :geta$:nextk:getkeya$ 

210 ifa$="l"then215 

211 ifa$="2"thengosubllO:gosublll:goto 
304 

212 ifa$="3”then400 

213 ifa$="4"then500 

214 goto209 

215 scnclr 

216 printspe(4)chr$(18)"[SPACE]***[SPA 
CE]menu[SPACE]hires[SPACE]beeldsch 
erm[SPACE]***[SPACE]"chr$(146) 

217 print:print"joystic[SPACE]in[SPACE 


]poort[SPACE]2" 

218 print"pijltjestoetsen[SPACE]voor[S 
PACE]snelheid" 

219 print:printchr$(18)"*a"chr$(146) "[ 
SPACE]achtergrondkleur[2xSPACE]"ch 
r$(18)"*v"chr$(146)"[SPACE]voorgro 
ndkleur" 

220 print:printchr$(18)"*b"chr$(146)"[ 
SPACE]borderkleur[7xSPACE]"chr$(18 
)"*p"chr$(146)"[SPACE]pijlkleur" 

221 print:printchr$(18)"*l-8"chr$(146) 
"[SPACE]puntkleuren[5xSPACE]"chr$( 
18)"c=[SPACE]l-8"chr$(146)"[SPACE] 
puntkleuren" 

222 print:printchr$(18)"*c"chr$(146)"[ 
SPACE]puntcursor[SPACE]breed[2xSPA 
CE]"chr$(18)"*d"chr$(146)"[SPACE]p 
untcursor[SPACE]smal" 

223 print:printchr$(18)"home"chr$(146) 
"[SPACE]puntcursor[SPACE]linksbove 
n" 

224 print:printchr$(18)"clr"chr$(146)" 
[SPACE]s cherm[SPACE]s choon[4xSPACE 
]"chr$(18)"*o"chr$(146)"[SPACE]kle 
uropvulling" 

225 print:printchr$(18)"del"chr$(146) " 

[SPACE]punt j e[SPACE]in[SPACE]achte 
rgrondkleur[SPACE]zetten" 

226 print:printchr$(18)" + "chr$(146) " [S 
PACE]puntcursor[SPACE]in[SPACE]voo 
rgrondkleur" 

227 print:printchr$(18)"-"chr$(146)"[S 
PACE]puntcursor[SPACE]in[SPACE]ach 
tergrondkleur" 

228 print:printchr$(18)" "chr$(146)"[S 
PACE]naar[SPACE]hoofdmenu" 

229 charl,0,24,"[SPACE]'*'=control-toe 
t s[5xSPACE]druk[SPACE]een[SPACE]to 
ets[SPACE]", 1 

230 fork=ltol0 :geta$:nextk:getkeya$ 

231 gosubllO:gosublll:goto303 

299 : 

300 gosubllO:gosublll 

301 locate 160,100 

302 cs=l 

303 x=rdot(0):y=rdot(1) 

304 movesprl, x+13, y+41 

305 j2=joy(2) 

306 ifj2>127thendrawcs,x,y:j2=j2-128 

307 ifj2>0thenonj2goto320,322,324,326, 
328,330,332,334 

308 geta$:ifa$=""then305 

309 a=asc(a$):ifa<20then337 

310 ifa<32then347 

311 ifa=45thencs=0:goto303 

312 ifa=43thencs=l:goto303 

313 ifa=95thenspritel,0:sprite2,0:goto 
200 

314 ifa=129thencolorl,9:kl=9:goto303 

315 ifa=144thencolorl,1:kl=l:goto303 

316 ifa=145thenify>8thenlocatex,y-8:go 
to303 

317 ifa>146thenifa<160thenona-146goto3 
54,355,356,357,358,35 9, 360,361,362 
,363,364,366, 367 

318 goto303 

319 : 

320 ify>0thenlocatex, y-1 

321 goto303 

322 ify>0thenifx<319thenlocate x+l,y-l 

323 goto303 








I 


print-out print-out print-out print-out print-out 


324 ifx<319thenlocatex+l, y 

325 goto303 

326 ifx<319thenify<199thenlocatex+l,y+ 
1 

327 goto303 

328 ify<199thenlocatex, y+1 

329 goto303 

330 ifx>0thenify<199thenlocatex-l, y+1 

331 goto303 

332 ifx>Othenlocatex-l, y 

333 goto303 

334 ifx>0thenify>0thenlocatex-l ,y-1 

335 goto303 

336 : 

337 ifa=lthen368 

338 ifa=2thenk4=int(rnd(0)*16+1)color4 
,k4:goto303 

339 x fa=3thenwith2:goto3 03 

340 ifa=4thenwithl:goto303 

341 ifa=5thencolorl,2:kl=2:goto303 

342 ifa=15thenpaintcs,x,y:goto303 

343 ifa=16thenks=int(rnd(1)*15+1):gosu 
bllO:goto303 

344 ifa=17thenify<191thenlocatex,y+8:g 
oto303 

345 ifa=19thenlocate0, 0:goto303 

346 goto303 

347 ifa=20thendraw0,x,y:goto303 

348 ifa=22then373 

349 ifa=28thencolorl,3:kl=3:goto303 

350 ifa=29thenifx<312thGnlocatex+8, y:g 
oto303 

351 ifa=30thencolorl,6:kl=6 

352 ifa=31thencolorl,7:kl=7 

353 goto303 

354 locateO,0:scnclrl 

355 goto303 

356 colorl,10:kl=10:goto303 

357 colorl,11:kl=ll:goto303 

358 colorl,12:kl=12:goto303 

359 colorl,13:kl=13:goto303 

360 colorl,14:kl=14:goto303 

361 colorl,15:kl=15:goto303 

362 colorl,16:kl=16:goto303 

363 colorl,5:kl=5:goto303 

364 ifx>8thenlocatex-8, y 

365 goto303 

366 colorl,8:kl=8:goto303 

367 colorl,4:kl=4:goto303 

368 movespr2,99,99:rd=int(rnd(1)*16) : k 
0=rd :colorO,k0+l:k=7168 

369 geta$:ifa$=chr$(1)then368 

370 pokek,rd+(peek(k)and240) 

371 ifk<>8167thenk=k+l:goto369 

372 movespr2,0,0:goto303 

373 movespr2,99,99:rd=int(rnd(1)*16)*1 
6:kl=rd/16+l:colorl,kl:k=7168 

374 geta$:ifa$=chr$(22)then373 

375 pokek,rd+(peek(k)andl5) 

376 ifk<>8167thenk=k+l:goto374 

377 movespr2,0,0:goto303 

399 : 

400 scnclr:printchr$(18)"[SPACE]***[SP 
ACE]grafische[SPACE]comando's[SPAC 
E]***[SPACE]"chr$(146) 

401 print:print:print"l[SPACE]box[5xSP 
ACE]vierkanten[SPACE]tekenen" 

402 print:print:print"2[SPACE]char[4xS 
PACE]karakters[SPACE]op[SPACE]'t[S 
PACE]scherm[SPACE]zetten" 

403 print:print:print"3[SPACE]circle[2 


xSPACE]cirkels[SPACE]en[SPACE]ande 
re[SPACE]figuren" 

404 print -.print:print"4 [SPACE] draw [4xS 
PACE]punten[SPACE]en[SPACE]lijnen[ 
SPACE]tekenen" 

405 fork=ltol0:geta$:nextk:getkeya$ 

406 a=val(a$):ifa>0anda<5thenonagoto40 
8,426,439,459 

407 goto200 

408 scnclr:printspc(18) "box" 

409 gosubll2 

410 print:print"linkerbovenhoek[SPACE] 
x[SPACE] (0-319)" 

411 print:print"[16xSPACE]y[SPACE](0-1 
99) " 

412 print:print"rechteronderhoek[SPACE 
]x[SPACE] (0-319)" 

413 print:print"[17xSPACE]y[SPACE](0-1 
99) " 

414 print:print"rotatie[SPACE](0-360)" 

415 print:print"inkleuren?[SPACE] 0=nee 
[SPACE]1=ja" 

416 w=l:d=l:gosubllö 

417 ifx-7>0thenxl=x-7: elsexl=0 

418 ify-7>0thenyl=y-7: elseyl=0 

419 w=2:d=xl:gosubllö 

420 w=3:d=yl:gosubllö 

421 w=4:d=x:gosubll6 

422 w=5:d=y:gosubllö 

423 w=6:d=0:gosubll6 

424 w=7:d=0:gosubllö 

425 goto470 

426 scnclr:printspc(18)"char" 

427 gosubll2 

428 print:print"karakterkolom[SPACE](0 
-39) " 

429 print:print"karakterrij[SPACE](0-2 
4) " 

430 print:print"omgekeerde[SPACE]kl.?[ 
SPACE] 0=nee [SPACE]l=ja" 

431 w=l:d=l:gosubll6 

432 w=2:d=int(x/8):gosubll6 

433 w=3:d=int(y/8):gosubll6 

434 w=4:d=0:gosubll6 

435 windowO,15, 39, 24 

436 print"typ[SPACE]achter[SPACE]'?'[S 
PACE]de[SPACE]af[SPACE]te[SPACE]dr 
ukken[SPACE]tekst[3xSPACE]geen[SPA 
CE]comma's[SPACE]e.d.[SPACE]gebrui 
ken! " 

437 inputt$ 

438 goto470 

439 scnclr:printspc(15)"circle" 

440 gosubll2 

441 print:print"middelpunt[SPACE]x[SPA 
CE] (0-319)" 

442 print:print"[llxSPACE]y[SPACE](0-1 
99) " 

443 print:print"radius[SPACE]x" 

444 print:print"[7xSPACE]y" 

445 print:print"starthoek[SPACE](0-360 
) " 

446 print:print"eidhoek" 

447 print:print"rotatie[SPACE](0-360)" 

448 print:print"graden[SPACE]tussen[SP 
ACE]segmenten" 

449 w=l:d=l:gosubll6 

450 w=2:d=x:gosubll6 

451 w=3:d=y:gosubll6 

452 w=4:d=30:gosubll6 

453 w=5:d=a(4):gosubll6 










454 w=6:d=0:gosubllö 

455 w=7:d=360:gosubll6 

456 w=8:d=0:gosubll6 

457 w=9:d=l:gosubllö 

458 goto470 

459 scnclr:printspc(18)"draw" 

460 gosubll2 

461 print:print"punt[SPACE]x[SPACE](0- 
319) " 

462 print:print"[5xSPACE]y[SPACE](0-19 
9) " 

463 print:print"naar[SPACE]punt[SPACE] 
x[SPACE] (0-319)" 

464 print:print"[lOxSPACE]y[SPACE](0-1 
99) " 

465 w=l:d=l:gosubllö 

II 466 w=2 :d=x : gosubll6 

467 w=3:d=y:gosubll6 

468 w=4:d=a(2):gosubll6 

469 w=5:d=a(3):gosubll6 

470 printchr$(19)+chr$(19) 

471 charl,27,23,"okee[SPACE](j/n)?",1 
|f 472 fork=ltol0 :getb$:next:getkeyb$ 

473 ifb$<>"j"then200 

474 gosubllO 

475 gosublll 

| 476 ifa$="l"thenboxa(1),a(2),a(3),a (4) 

, a (5), a (6), a (7) 

477 ifa$="2"thenchara(1),a(2),a(3),t$, 
a (4) 

478 ifa$="3"thencirclea(1),a(2),a(3),a 
(4) ,a(5) ,a(6) ,a(7) ,a(8) ,a(9) 

479 ifa$="4"thendrawa(1),a(2),a(3) to 
a(4),a(5) 

I 480 goto303 
499 : 

jf 500 scnclr:printspc(8)chr$(18)"[SPACE] 
***[SPACE]disk-comando's[SPACE]*** 
[SPACE]"chr$(146) 

501 print:print"l[SPACE]directory" 

8 502 print"2[SPACE]bitmap[SPACE]laden[S 
PACE]van[SPACE]disk" 

503 print"3[SPACE]bitmap[SPACE]saven[S 
PACE]naar[SPACE]disk" 

504 fork=ltol0 :geta$:nextk:getkeya$ 

505 ifa$="l"then508 

506 ifa$="2"ora$="3"then511 

507 goto200 

508 window6,5,39,21,1 

509 directory:printchr$(19)chr$(19) 

510 goto504 

| 511 window4,21, 36,23, 1 
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512 prinftyp [SPACE] achter [SPACE] ' ?' [S 
PACE]de[SPACE]fi1ename" 

513 inputb$ 

514 iflen(b$)>15then511 

515 printchr$(19)chr$(19):scnclr 

516 ifa$="2"thenprint"bload"+chr$(34)+ 
b$+chr$(34) 

517 ifa$="3"thenprint"bsave"+chr$(34) + 
b$+chr$(34)+",p7168[SPACE]to[SPACE 
]pl6192" 

518 printchr$(17)chr$(17)chr$(17)chr$( 
17)"run523"chr$(145)chr$(145)chr$( 
145)chr$(145)chr$(145) 

519 fork=842to844:pokek,145:nextk 

520 fork=845to847:pokek, 13:nextk 

521 poke208,6 

522 end 

523 kl=(peek(7667)and240)/16+1 

524 k0=(peek(7667)andl5)+l 

525 k4=13:ks=13:goto300 

599 : 

600 ifel=103orel=104thenscnclr:print"f 
out[SPACE]in[SPACE]dato[SPACE]rege 
ls[SPACE] 103,104, 700-711" 

601 ifel>208andel<215thenresume209 

602 ifel=230thenresume230 

603 ifel>299andel<400thenresume300 

604 ifel>404andel<408thenresume404 

605 ifel>407andel<426thenresume408 

606 ifel>425andel<439thenresume426 

607 ifel>438andel<459thenresume439 

608 ifel>458andel<470thenresume459 

609 ifel>469andel<500thenresume303 

610 ifel>499andel<600thenresume500 

611 printchr$(19)chr$(19)err$(er)"[SPA 
CE]in[SPACE]line[SPACE]"el 

612 end 

699 : 

700 data 15,128,,14,,,15,,,9,128,,8 

701 data 192,,,96,,,48,,,24,,,12 


702 

data 0,,6,,, 

3, ,255, 

255,255,128, 

,1 

703 

data 142,61, 

225,179 

, 97,153,176, 

97 

704 

data 153,183,121,159,179,97,153 


705 

data 179,97, 

153,140 

, 61,225,128, 

,1, 


128,,1,179 




706 

data 97,225, 

179,97, 

153, 179,97,153 

707 

data 179,97, 

153,179 

, 97,153,179, 

97 

708 

data 153,158,125,225,128,,1,255 


709 

data 255,255 

,255,255,255 


710 

data 153,158 

,125,225,128,,1,255 


711 

data 255,255 

,255,255,255 


** EINDE LISTING ricqraph 



116 

REGEL 309 

206 

REGEL 330 

1 98 

152 

REGEL 310 

41 

REGEL 331 

31 

113 

REGEL 311 

95 

REGEL 332 

10 

13 

REGEL 312 

94 

REGEL 333 

31 

248 

REGEL 313 

71 

REGEL 334 

82 

82 

REGEL 314 

56 

REGEL 335 

31 

197 

REGEL 315 

37 

REGEL 336 

58 

78 

REGEL 316 

50 

REGEL 337 

247 

251 

REGEL 317 

42 

REGEL 338 

215 

52 

REGEL 318 

31 

REGEL 339 

253 

210 

REGEL 319 

58 

REGEL 340 

253 

58 

REGEL 320 

11 

REGEL 341 

195 

121 

REGEL 321 

31 

REGEL 342 

98 

58 

REGEL 322 

192 

REGEL 343 

190 

121 

REGEL 323 

31 

REGEL 344 

100 

242 

REGEL 324 

120 

REGEL 345 

90 

91 

REGEL 325 

31 

REGEL' 34 6 

31 

128 

REGEL 326 

52 

REGEL 347 

254 

167 

REGEL 327 

31 

REGEL 348 

38 

30 

REGEL 328 

12 7 

REGEL 349 

250 

101 

REGEL 329 

31 

REGEL 350 

97 











REGEL 

351 

160 

REGEL 

352 

163 

REGEL 

353 

31 

REGEL 

354 

197 

REGEL 

355 

31 

REGEL 

356 

199 

REGEL 

357 

201 

REGEL 

358 

203 

REGEL 

359 

205 

REGEL 

360 

207 

REGEL 

361 

209 

REGEL 

362 

211 

REGEL 

363 

111 

REGEL 

364 

25 

REGEL 

365 

31 

REGEL 

366 

117 

REGEL 

367 

109 

REGEL 

368 

39 

REGEL 

369 

115 

REGEL 

370 

66 

REGEL 

371 

63 

REGEL 

372 

71 

REGEL 

373 

81 

REGEL 

374 

162 

REGEL 

375 

18 

REGEL 

376 

59 

REGEL 

377 

71 

REGEL 

399 

58 

REGEL 

400 

54 

REGEL 

401 

158 


REGEL 

405 

52 

REGEL 

406 

45 

REGEL 

4Q7 

27 

REGEL 

408 

32 

REGEL 

409 

33 

REGEL 

410 

185 

REGEL 

411 

90 

REGEL 

412 

255 

REGEL 

413 

90 

REGEL 

414 

15 

REGEL 

415 

218 

REGEL 

416 

250 

REGEL 

417 

60 

REGEL 

418 

64 

REGEL 

419 

83 

REGEL 

420 

85 

REGEL 

421 

36 

REGEL 

422 

38 

REGEL 

423 

254 

REGEL 

424 

255 

REGEL 

425 

36 

REGEL 

426 

85 

REGEL 

427 

33 

REGEL 

428 

161 

REGEL 

429 

254 

REGEL 

430 

202 

REGEL 

431 

250 

REGEL 

432 

13 

REGEL 

433 

15 

REGEL 

434 

252 

REGEL 

435 

4 

REGEL 

436 

14 

REGEL 

437 

253 


REGEL 

4 38 

36 

REGEL 

439 

230 

REGEL 

440 

33 

REGEL 

441 

73 

REGEL 

442 

90 

REGEL 

443 

208 

REGEL 

444 

9 

REGEL 

445 

172 

REGEL 

446 

169 

REGEL 

447 

15 

REGEL 

448 

233 

REGEL 

449 

250 

REGEL 

450 

34 

REGEL 

451 

36 

REGEL 

452 

47 

REGEL 

453 

147 

REGEL 

454 

254 

REGEL 

455 

104 

REGEL 

456 

0 

REGEL 

457 

2 

REGEL 

458 

36 

REGEL 

459 

101 

REGEL 

460 

33 

REGEL 

461 

154 

REGEL 

462 

90 

REGEL 

463 

188 

REGEL 

464 

90 

REGEL 

465 

250 

REGEL 

466 

34 

REGEL 

467 

36 

REGEL 

468 

144 

REGEL 

469 

146 

REGEL 

470 

71 


REGEL 

471 

127 

REGEL 

472 

235 

REGEL 

473 

28 

REGEL 

474 

31 

REGEL 

475 

32 

REGEL 

476 

17 

REGEL 

477 

217 

REGEL 

478 

1 

REGEL 

479 

167 

REGEL 

480 

31 

REGEL 

499 

58 

REGEL 

500 

9 

REGEL 

501 

150 

REGEL 

502 

64 

REGEL 

503 

151 

REGEL 

504 

52 

REGEL 

505 

91 

REGEL 

506 

148 

REGEL 

507 

27 

REGEL 

508 

51 

REGEL 

509 

197 

REGEL 

510 

34 

REGEL 

511 

94 

REGEL 

512 

232 

REGEL 

513 

235 

REGEL 

514 

90 

REGEL 

515 

191 

REGEL 

516 

96 

REGEL 

517 

166 

REGEL 

518 

230 

REGEL 

519 

73 

REGEL 

520 

25 

REGEL 

521 

147 


REGEL 

522 

128 

REGEL 

523 

160 

REGEL 

524 

91 

REGEL 

525 

217 

REGEL 

599 

58 

REGEL 

600 

45 

REGEL 

601 

10 

REGEL 

602 

117 

REGEL 

603 

8 

REGEL 

604 

9 

REGEL 

605 

16 

REGEL 

606 

20 

REGEL 

607 

30 

REGEL 

608 

27 

REGEL 

609 

11 

REGEL 

610 

14 

REGEL 

611 

236 

REGEL 

612 

128 

REGEL 

699 

58 

REGEL 

700 

107 

REGEL 

701 

211 

REGEL 

702 

204 

REGEL 

703 

6 

REGEL 

704 

157 

REGEL 

705 

11 

REGEL 

706 

20 

REGEL 

707 

28 

REGEL 

708 

135 

REGEL 

709 

63 

REGEL 

710 

135 

REGEL 

711 

63 


REGEL 402 
REGEL 403 
REGEL 404 


49 

199 

28 


Catch-it 128 


De bedoeling van dit spel van W. Versloot is de bal 
op te vangen met een auto. Om het geheel wat moei- 
lijker te maken kan de auto niet stoppen. 


230 


240 

250 


charO,3,15,"press[SPACE]fire[SPACE 
]button[SPACE]for[SPACE]another[SP 
ACE]game":do:loopuntiljoy(2)=128 
gotolO 

colorO,1:color4,1:scnclr:f=0:t=5:s 


10 bl=bump(l):b2=bump(2):restore 

20 fast:gosub250 

30 gosubllO:gosub340 

40 movespr2,131+int(rnd(0)*97)+l#l-4 
50 j=joy(2):ifj=3thenmovesprl,90#1 

60 ifj=7thenmovesprl,270#1 

70 ifj=128thenmovesprl, 0#0 

80 ifburnp(2)=2thengosubl30 

90 ifbump(1)=3thengosubl60 

100 goto50 

110 charO,4,12,"[COM-6]press[SPACE]fir 
e[SPACE]button[SPACE]for[SPACE]nex 
t[SPACE]level":do:loopuntiljoy(2)= 
128 

120 charO,4,12,"[32xSPACE]":return 

130 movespr2,0#0:sprite2,0:movespr2,17 
1,83:soundl,500,10:t=t-l 
140 t$=str$(t):charO,36,2,t$:ift=0then 
goto200 

150 sprite2,1:movespr2,131+int(rnd(0)* 
97)+l#l-4:b2=bump(2):return 
160 movespr2,0#0:sprite2,0:s=s+l:moves 
pr2,171,83:soundl,10000,8 
170 s$=str$(s):charO,8,2,s$ 

180 r=r+l:ifr=20thenr=0:1=1+1:l$=str$( 
1-4):charO,23,2,1$:gosubllO 
190 sprite2,1:movespr2,131+int(rnd(0)* 
97)+l#l-4:bl=bump(1):return 
200 charO,10,9,"[SPACE]g[SPACE]a[SPACE 
]m[SPACE]e[2 xSPACE]o[SPACE]v[SPACE 
]e[SPACE]r[SPACE]![SPACE]!" 

210 h$=str$(h):f$="highscore:":f$=f$+h 
$:charO, 15,11,f$ 

220 s$=str$(s):ifs>hthenf$="new[SPACE] 
highscore:":f$=f$+s$:charO,12,13,f 


=0:1=5:r=0:forx=3648to3711:pokex,0 
: next 

260 poke3682,224:poke3684,1:poke3685,2 

40:poke3687,1:poke3688,240:poke369 
0,1 

270 poke3691,240:poke3694,224:forx=358 

4to3647:ready:pokex,y:next 

280 forx=0to39:print"(COM-8]-";:next:p 

rint"[CTRL-6]U";:forx=0to37:print" 
C";:next:print"I" 

290 print"B[COM-6][SPACE]score:[SPACE] 
0[6xSPACE]level[SPACE]:[SPACE]l[5x 
SPACE]tries:[SPACE]5[CTRL-6][SPACE 
] B" 

300 print"J";:forx=0to37:print"[CTRL-6 
]C";:next:print"K" 

310 forx=0to39rprint"[COM-8];:nextx 

320 print"[CTRL-6][COM-D][17xCOM-I][3x 
SPACE][18xCOM-I][COM-F]" 

330 forx=0tol4:print"[CTRL-9][COM-K][C 
TRL 0]";spc(38);"[COM-K]":next:pri 
nt"[CRSR-DOWN]":forx=0to39:print"[ 
CTRL-6][COM-R]:next 

340 movespr2,171,83:sprite2,1,2:movesp 
rl,171,216:spritel,1,16:slow:retur 
n 

350 dataO,0,0,0,0,0,0,0,0,24,198, 48,61 
,239,120,61,239,120,24,198, 48,0,0, 
0 

360 data99,24,198,247,189,239,247, 189, 
239,99,24,198,0,0,0,255,255,255, 25 
5,255 

370 data255,193,255, 131,156,255, 57, 190 
,255, 125,54,0,108,62,0,124,28,0,56 
,0 

** EINDE LISTING catch-it 


Commodore Info 












We staan zo langzamerhand weer voor een zomer¬ 
periode waarin traditioneel de meeste mensen meer 
vrije tijd hebben. Een deel van deze tijd zal dan ook 
wel weer achter de computer worden doorgebracht. 
Om deze tijd nuttig te besteden hebben we weer een 
groot aantal listings bij elkaar gezocht. Niet alleen 
spelletjes maar ook zijn er programma’s bij welke u in 
uw eigen programma kunt gebruiken. Elders in het 
blad vindt u de uitslag van onze programeerwedstrijd 
waarvoor vele programma’s zijn binnengekomen. 
Hierdoor zijn we weer in staat deze rubriek vele 
maanden te vullen. 

R.Goudriaan 


Syntax Checksum 


Het overtikken van een listing kan een heel karwei 
zijn en als u een beetje normaal mens bent dan 
maakt u daarin beslist een aantal fouten. Nu is niets 
moeilijker om de fouten uit je eigen werk te halen. Al 
geruime tijd heeft Jan Bodzinga hiervoor een zgn. 
Checksum-programma geschreven. Om de vele 
nieuwe lezers van Commodore-info te helpen volgt 
hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, hoe 
vreemd dat misschien ook lijkt, echt mogelijk is om 
met behulp van dit programma de fouten in elke door 
ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

2. U tikt het RUN commando in. Mocht het program¬ 
ma de boodschap 'FOUT in dataregels!’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
dan de fout en SAVE de verbeterde versie. Mocht het 
programma met de boodschap 'data is weggezet 
checksum testen met sys...'komen dan is tot dusver 
alles goed. Het programma is nu in een stukje machi- 
netaalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de ge¬ 
hele listing opnieuw te gaan intikken. Als u nu een 
programma op fouten wilt gaan controleren dan kunt 
u dat in het geheugen laden(wel eerst het checksum 
programma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regelnum¬ 
mers over het scherm met getallen erachter. Dezelf¬ 
de lijst staat ook achter elk door ons geplaatste pro¬ 
gramma. Wijkt nu een nummer achter een regelnum¬ 
mer af van het nummer dat in het blad staat dan 
heeft u in die regel iets anders ingetikt dan er in het 
blad stond. U kunt de stroom getallen d.m.v. de 
RUN/STOP toets pauzeren en weer vervolgen met 
de F1 of F7 toets. Het is uitermate belangrijk dat u 
goed met dit programma overweg kunt en mocht u 


het niet goed werkend krijgen bel dan gerust even 
met onze listingservice telefoonlijn. (Maandag 17.00 - 
21.00 uur. Telefoonnummer 02155-25162.) 

1 rem ****************************** 

* * * 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

4 rem blijft dit programma in het ge 

5 rem heugen, laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 

* ★ ★ 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelez 

en 

30 pokei,a:i=i+l:b=b+a:goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 poke49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei,a:b=a+b:i=i+l:goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 print"data[SPACE]is[SPACE]weggezet 

I! 

95 print"checksum[SPACE]testen[SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 

192 

120 data 32,73,192,208,1,96,32,225,255 
, 208 

130 data 3,76,116,164,32,81,192,32,73, 

192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32, 

0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

*** EINDE LISTING checksum 64 ** 
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REGEL 

i 

249 

REGEL 

100 

183 

REGEL 

2 

84 

REGEL 

110 

158 

REGEL 

3 

105 

REGEL 

120 

232 

REGEL 

4 

2 

REGEL 

130 

183 

REGEL 

5 

246 

REGEL 

140 

96 

REGEL 

6 

152 

REGEL 

150 

96 

REGEL 

7 

249 

REGEL 

160 

127 

REGEL 

10 

157 

REGEL 

170 

71 

REGEL 

20 

64 

REGEL 

180 

223 

REGEL 

30 

38 

REGEL 

190 

73 

REGEL 

40 

57 

REGEL 

200 

79 

REGEL 

50 

14 

REGEL 

210 

109 

REGEL 

55 

251 

REGEL 

220 

106 

REGEL 

60 

192 

REGEL 

230 

225 

REGEL 

70 

42 

REGEL 

240 

16 

REGEL 

80 

244 

REGEL 

250 

163 

REGEL 

90 

245 

REGEL 

260 

92 

REGEL 

95 

237 

REGEL 

270 

22 


Checksum C 16 


REGEL 

10 

249 

REGEL 

280 

186 

REGEL 

20 

247 

REGEL 

290 

248 

REGEL 

30 

121 

REGEL 

300 

118 

REGEL 

40 

143 

REGEL 

310 

204 

REGEL 

50 

75 

REGEL 

320 

165 

REGEL 

60 

143 

REGEL 

330 

252 

REGEL 

70 

8 

REGEL 

340 

106 

REGEL 

80 

249 

REGEL 

350 

98 

REGEL 

90 

103 

REGEL 

360 

163 

REGEL 

100 

2 

REGEL 

370 

45 

REGEL 

110 

245 

REGEL 

380 

0 

REGEL 

120 

237 

REGEL 

390 

58 

REGEL 

130 

128 

REGEL 

400 

108 

REGEL 

200 

210 

REGEL 

410 

159 

REGEL 

210 

208 

REGEL 

420 

245 

REGEL 

220 

142 

REGEL 

430 

202 

REGEL 

230 

1 

REGEL 

440 

176 

REGEL 

240 

3 

REGEL 

450 

12 

REGEL 

250 

157 

REGEL 

460 

54 

REGEL 

260 

155 

REGEL 

470 

43 

REGEL 

270 

215 

REGEL 

480 

1 



rem ****************************** 
★ ★★ 

rem syntax.checksum 
rem voor c-16 & plus/4 
rem 

rem syntax testen met 'sys 1536' 
rem 

rem v.851128.16 jan bodzinga 

rem ****************************** 
* * * 

i=1536 :rem beginadres 

reada:if a>=0then pokei,a:i=i+l:got 
olOO 

prinfdata [SPACE] is [SPACE] weggezet 

print"cheksum[SPACE]printen[SPACE] 

met[SPACE]'sys[SPACE]1536' 

end 

data 165, 43,166, 44,133 
data 31,134, 32,169,147 
data 32,210,255,160, 0 

data 240, 3, 32, 73, 6 

data 32, 73, 6,208, 1 

data 96, 72,152, 32,131 
data 6,168,104,234, 32 
3, 6 


6,166 


270 

data 

81, 6, 32 

280 

data 

240, 12,201 

290 

data 

247, 24,101 

300 

data 

252, 76, 37 

310 

data 

252,169, 0 

320 

data 

32, 95,164 

330 

data 

32,210,255 

340 

data 

76, 17, 6 

350 

data 

2,230, 32 

360 

data 

96,162, 0 

370 

data 

6,240, 6 

380 

data 

255,232,208 

390 

data 

73, 6,170 

400 

data 

6,132,253 

410 

data 

164,162, 3 

420 

data 

32,210,255 

430 

data 

250,169, 0 

440 

data 

164,253, 96 

450 

data 

71, 69, 76 

460 

data 

0, 72,138 

470 

data 

225,255,240 

480 

data 

170,104, 96 


32, 


32 


95 


69 

0 

32 


Powertoetsen C 64 


Met deze utilitie kan het aantal Funktie-toetsen in 
combinatie met de Powercartridge met 8 worden uit¬ 
gebreid tot 16. Het grote voordeel is dat deze funkties 
herprogrammeerbaar zijn, het instellen gebeurt via 
een menu. De inzender van dit programma is R. 
Wolswijk. 


EINDE LIST ING checks16 


10 

20 

30 

40 

50 

60 

70 

80 

90 


100 

110 

120 


130 

140 

150 


160 


170 

180 

190 

200 


210 

220 


rem power f-toetsen / commodore 64 
rem 

rem door r. wolswijk 
rem 

rem *** f9 t/m f16 als aanv. op de 
powercart. *** 

dim f$(20):print"[SHIFT-CLR]:for 
k=9 to 16:read £$(k):next 
tl=51968:t2=52195:for k=tl to t2:r 
ead a:poke k,a:next 
gosub 220:gosub 200 
p$="":t$="":input"[CRSR-UP][CTRL-9 
][SPACE]welke[SPACE]toets[SPACE](9 
-16) [CTRL-0] [15xSPACE][15xCRSR-LEF 
T]";t$ 

t=val(t$):if t=0then 80 
if t<9 or t>16 then 90 
ff$="":print"[CRSR-UP][CTRL-9][SPA 
CE]welke[SPACE]functie[SPACE]f";t; 
"[CTRL-0] [CRSR-LEFT][9xSPACE][8xCR 
SR-LEFT]:input ff$ 
if ff$="" then gosub200:goto 90 
l=len(ff$):if l>10then gosub 220: 
goto 120 

if right$(ff$,1)="[pijl[SPACE]link 
s]" then 1=1-1:p$="[plijl[SPACE]li 
nks] " 

f$(t)=ff$:pl=52008+t*ll:for p=l to 
1:poke pl+p,asc(mid$(f$(t),p,1)): 
next 

if p$="[pijl[SPACE]links]" then po 
kepl+p,13:p=p+l 
if p>10then 80 

for k=p to 10:poke pl+k,0:next:got 
o 80 

a$="":input"[CTRL-9][CRSR-UP][SPAC 
E]nog[SPACE]func.toetsen[SPACE]wij 
zigen(j/n) [CTRL-0] ";a$:if a$="j" t 
hen return 
sys tlrnew 

print"[SHIFT-CLR]";.-for p=9 to 16: 
print"f";right$(str$(p) ,2);"[SPACE 


im 


Commodore info 
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]"; f$ (p) 

230 print:next:print"[CTRL-9]restart:s 
ys[SPACE]51968[2xCRSR-D0WN]":retur 
n 

240 data"coLl,1,0[pijl[SPACE]links]", " 
coLO,0,1[pij1[SPACE]links]",dload" 
,"repeat[pijl links]" 

250 data"print","tab(","gosub", "data" 
260 rem *** machine-codes *** 


270 data 120, 169, 18, 141, 20, 3, 169 
, 203, 141, 21, 3, 88, 169 


280 

data 

203, 133 

, 254, 96, 234, 174, 


141, 

2, 165, 

197, 

201, 4, 240 

290 

data 

19, 201, 

5, 

240, 33, 201, 6, 


240, 

47, 201, 

3, 

240, 61 

300 

data 

169, 0, 

133, 

2, 76, 49, 234, 


165, 

2, 208, 

249, 

224, 2 

310 

data 

240, 6, 

144, 

243, 169, 184, 2 


08, 56, 169, 

140, 

208, 52, 165 

320 

data 

2, 208, 

231, 

224, 2, 240, 6, 


144, 

225, 169 

, 195, 208, 38 

330 

data 

169, 151 

, 208, 34, 165, 2, 20 


8, 213, 224, 

2, 240, 6, 144 

340 

data 

207, 169 

, 206, 208, 20, 169, 


162, 

208, 16, 

165 

, 2, 208, 195 

350 

data 

224, 2, 

240, 

6, 144, 189, 169 


, 217, 208, 2, 169, 173, 133 
360 data 253, 160, 0, 177, 253, 153, 1 



19, 2 

f 

200, 

192, 

10, 

208 

, 246 


370 

data 

132, 198, 169, 

255, 

133, 

2, 

7 


6, 49, 

234, 

234, 

67, 

79, 

204 



380 

data 

49 

, 44 

, 49, 

44, 

48, 

13, 

0, 

23 


4, 67 

r 

79, 

204, 

48, 

44 




390 

data 

48 

, 44 

, 49, 

13, 

0, 

234, 

0, 

0, 


0, 0 

r 

68, 

76, 79 





400 

data 

65 

, 68 

, 34, 

234 

, 82 

, 69, 

80, 


69, 65, 

84, 

13, 

0, 0 





410 

data 

0, 

234 

, 80, 

82, 

73, 

78, 

84, 

0 


, o, 

0, 

0, 

0, 234 





420 

data 

84 

, 65 

, 66, 

40, 

0, 

0, 0, 

0, 

0 


, o, 

234, 71, 79 






430 

data 

83 

, 85 

, 66, 

0, 

0, 0 

, o. 

0, 

23 


4, 68 

f 

65, 

84, 65 






440 data 0, 0, 0, 0, 0, 0, 234 


** EINDE LISTING pftoetsen 


REGEL 

10 

239 

REGEL 

280 

96 

REGEL 

20 

143 

REGEL 

290 

78 

REGEL 

30 

189 

REGEL 

300 

112 

REGEL 

40 

143 

REGEL 

310 

165 

REGEL 

50 

200 

REGEL 

320 

1 

REGEL 

60 

7 

REGEL 

330 

248 

REGEL 

70 

106 

REGEL 

340 

161 

REGEL 

80 

122 

REGEL 

350 

60 

REGEL 

90 

85 

REGEL 

360 

88 

REGEL 

100 

158 

REGEL 

370 

79 

REGEL 

110 

247 

REGEL 

380 

29 

REGEL 

120 

251 

REGEL 

390 

12 

REGEL 

130 

35 

REGEL 

400 

183 

REGEL 

140 

135 

REGEL 

410 

252 

REGEL 

150 

53 

REGEL 

420 

203 

REGEL 

160 

75 

REGEL 

430 

16 

REGEL 

170 

40 

REGEL 

440 

68 

REGEL 

180 

252 




REGEL 

190 

120 




REGEL 

200 

177 




REGEL 

210 

255 




REGEL 

220 

230 




REGEL 

230 

211 




REGEL 

240 

225 




REGEL 

250 

61 




REGEL 

260 

27 




REGEL 

270 

203 





Schermwissen C 64 


Dit programmaatje door Marcel de Groot geschreven 
zet een machinecode-programmaatje weg, waardoor 
met ’sys 49152’ het scherm op een leuke manier ge¬ 
wist wordt. Dit gaat alleen goed, wanneer er maar 
een kleur op het scherm staat. Dit programma is dus 
niet bedoeld als zelfstandig programma maar kan in 
uw eigen programma’s worden gebruikt om dit een 
speelser karakter te geven. 

10 fori=0to75:reada:poke49152+i,a:nex 

t:a=peek(646):fori=1024to2023:poke 
i, 208 

20 poke54272+i,a:next:print"[HOME]"sp 

c(17)"[5xCRSR-DOWN]toets!"chr$(142 
):pokel98,0:waitl98,1 
30 sys4 9152:datal20,162,45, 160,255,16 

9,27,141,17,208,173,33,208,141,60, 
192,32,47 

40 datal92,232,136,192,150,208,247,88 

,169,147,32,210,255,120,32, 47,192, 

202,200 

50 data208,249,173,60,192,141,33,208, 

88,96,169,27,205,17,208, 208,251,23 
6,18,208 

60 data208,251,169,0,141, 33,208,204,1 

8,208,208,251,173,134,2,141,33,208 
,96 

** EINDE LISTING schermwissen 


REGEL 

10 

88 

REGEL 

20 

170 

REGEL 

30 

184 

REGEL 

40 

54 

REGEL 

50 

132 

REGEL 

60 

10 


Super Screen C 64 


Super screen is bedoeld om het programmeren, na¬ 
kijken en intypen wat makkelijker te maken Als de 
data’s ingelezen zijn en de opdracht ’sys 49152’ is 
gegeven, wordt het scherm grijs en er verschijnt een 
donker grijze balk over de plaats waar de cursor 
staat. De balk maakt het de gebruiker makkelijker om 
zich te concentreren Elke keer als men een toets 
aanslaat hoort men een toon als men nu tweemaal 
een toets indrukt in plaats van één dan is dit ook te 
horen Ook kent dit programma een zogenaamd klad 
blad. in regel 30 staat poke 49404,57 - 57 is de code 
voor de toets [pijl links] Een ander getal (b.v 4) geeft 
een andere toets (b.v. F1) Met deze toets is het mo¬ 
gelijk om te schakelen van scherm 1 (gewoon) naar 
scherm 2. (klad blad). Als u dit de eerste maal doet, 
staat er allemaal onzin op het klad blad, maar deze is 
na [Shift-clr] verdwenen. Als de gebruiker op het ene 
scherm werkt, blijft alles gewoon op het andere 
scherm staan. Dit heeft grote voordelen. U kunt wer¬ 
ken op het ene scherm en op het andere scherm din¬ 
gen zetten die men wil onthouden, of bewaren. Super 
screen uit zetten gebeurt door terug te gaan naar het 
gewone scherm en niet klad blad (belangrijk) en op 
RUN/Stop/Restore te drukken. Weer aan gaat met 
sys 49152 Superscreen zal wel werken met de mees¬ 
te basic programma’s maar niet met de meeste ma- 
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chinetaal programma’s. Super-screen gebruikt de ge¬ 
heugenruimte van 49152 tot 53248 De inzender van 
dit programma is Abbe Vermey. en wij hopen met 
hem dat u veel aan dit programma hebt. 


********** 


super-screen 


******** 


************************* 

** obbe vermeij ** 
** ** 

** capelle a/d ij. ** 

** ** 
************************* 


print "[4xCRSR-RIGHT][6xCRSR-D0WN] 
[CTRL-2]enkele[SPACE]seconden[SPAC 
E]geduld[SPACE]a.u.b" 
x=0:for t=49152 to 49652 : read a 
: poke t , a :x = x + a next 
if x O 62909 then print "[CTRL-1] 
[SPACE]fout[SPACE]in[SPACE]data[SP 
ACE]!![SPACE]":end 
poke 49404,57 
sys 49152 
end 

data 173,0,193,240,0,173,14,220,41 
,254,141,14,220, 165,1,41,251, 133, 1 
, 162,0 

data 134,251,162,208,134,252,160,0 
,177,251,168,216,56,165,252,237,0, 

193.133 

data252,152,160,0,145,251,230,251, 
208,231,232,224,212,208,226,173,0, 

193.201 

data 4,240,8,169,4,141,0,193,76,19 
,192,169, 0,141, 0,193,165,1,9,4,133 
,1,173 

data 14,220,9,1,141,14,220,169,203 
, 133,252,198,251,216,24,165,251,10 

5.8.133 

data 251,201,7,240,9,169,255,81,25 
1,145,251,76,95,192,230,252,165,25 

2.201 

data 208,208,239,169,255,141,18,20 
8,173,17,208,41,127,141,17,208,120 
, 169 

data 129,141,26,208,169,192,141,21 
, 3, 169,163,141,20,3,169,0,141,255, 
194,88 

data 32,226,193,96,173,25,208,141, 

25.208, 48,7,173,13,220,88,76,1,193 
, 173 

data 255,194,208,26,238,255,194,16 

9.12.141.33.208.169.11.141.32.208, 

216.24 

data 173,18,208,105,11,141,18,208, 
76, 188,254,20 6,255,194,169,15,141, 
33,208 

data 169,15,141,32,208,169,80,141, 
18,208,56,32,240,255,138,10,10,10, 
141,254 

data 194, 169,48,109,254,194,141,18 
,208,76,188,254,0,1,1,57,193,76,18 
8,8,165 

data 197,201,64,208,8,169,0,141,24 
9,192,76,163,193,173,249,192,240, 7 
, 173 

data 250,192,197,197,240,241,165,1 

97.141.250.192.141.24 9, 192, 169, 64, 


141,14 

250 data 212,141,15,212,169,0,141,19,2 

12.169, 51,141,20,212,169,15,141,24 
, 212 

260 data 169,64,141,18,212,169,65,141, 
18,212,165,197,205,252,192,240,3, 7 
6, 168 

270 data 193,173,251,192,240,39,169,0, 
141,251,192,173,2,221,9, 3,141,2, 22 
1, 173 

280 data 0,221,41,252,141,0,221,173,24 
,208,41,240,9,2,141,24,208,169,196 
,141 

290 data 136,2,76,49,234,173,2,221,9,3 
,141,2,221,173,0,221,41,252, 9, 3, 14 
1 , 0,221 

300 data 173,24,208,41,240,9,4,141,24, 

208.169.4.141.136.2.169, 1,141,251, 
192,76 

310 data 49,234,169,0,141,24,212,173,2 
51,192,208,243,162,0,189,194,193,1 
57,4 

320 data 196,169,0,157,4,216,232,224,3 
2,240,41, 76, 175,193,32,15,3,20,15, 
16, 21 

330 data 19,32,32,19,15,6,20,23,1,18,5 
,32,32,32,32,11,12,1,4,45,2,12,1,4 
,32,169 

340 data 1,141,134,2,96,173,24,208,41, 
15,9,16,141,24,208,76, 49, 234 

** EINDE LISTING s-screen 


REGEL 

0 

83 

REGEL 

15Q 

168 

REGEL 

1 

143 

REGEL 

160 

125 

REGEL 

2 

169 

REGEL 

170 

216 

REGEL 

3 

97 

REGEL 

180 

129 

REGEL 

4 

55 

REGEL 

190 

221 

REGEL 

5 

162 

REGEL 

200 

225 

REGEL 

6 

55 

REGEL 

210 

245 

REGEL 

7 

169 

REGEL 

220 

47 

REGEL 

8 

143 

REGEL 

230 

142 

REGEL 

9 

143 

REGEL 

240 

237 

REGEL 

10 

168 

REGEL 

250 

80 

REGEL 

20 

133 

REGEL 

260 

182 

REGEL 

25 

80 

REGEL 

270 

149 

REGEL 

30 

52 

REGEL 

280 

82 

REGEL 

40 

163 

REGEL 

290 

218 

REGEL 

50 

128 

REGEL 

300 

202 

REGEL 

100 

159 

REGEL 

310 

123 

REGEL 

110 

5 

REGEL 

320 

147 

REGEL 

120 

21 

REGEL 

330 

197 

REGEL 

130 

199 

REGEL 

340 

12 

REGEL 

140 

240 





MM 
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Joystick prog C 64 


Dit programma is een hulpprogramma om sprites aan 
één van de joysticks te koppelen. Een uitleg is in het 
programma opgenomen. De inzender is M klabbers 
uit Son. 

10 gosub270:print"[SHIFT-CLR][2xCRSR- 

DOWN][SPACE]even[SPACE]denken.. 

20 fora=0to483:readq:poke49248+a, q:ck 

=ck+q:next:ifck=66230then40 
30 print"[CRSR-DOWN][SPACE]foutje":en 

d 

4 0 rem 

50 rem martijn klabbers 

60 rem 


I ■ i iii.i m nii ■■i 

' " : . . 



rem 

rem 
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90 print"[SHIFT-CLR][2xCRSR-DOWN][SPA 
CE]de[SPACE]data[SPACE]zijn[SPACE] 
opgeslagen. 

100 print"[CRSR-DOWN][SPACE]wilt[SPACE 

]u[SPACE]ze[SPACE]no[SPACE]als[SPA 
CE]m.1.[SPACE]wegsaven[SPACE]?" 

110 pokel98,0:waitl98,1:geta$:ifa$="n" 
then end 
120 end 
130 end 
140 end 

150 print"[SHIFT-CLR][2xCRSR-D0WN][SPA 
CE]waar[SPACE]wilt[SPACE]u[SPACE]h 
et[SPACE]op[SPACE]wegsaven[SPACE]? 

II 

160 print"[CRSR-DOWN][SPACE]([CTRL-9]c 
[CTRL-0] assette/[CTRL-9]d [CTRL-0] i 
skette)":d=8 

170 pokel98,0:waitl98,1:geta$:ifa$="c" 

thend=l 

180 input"[CRSR-DOWN][SPACE]en[SPACE]d 
e[SPACE]naam[SPACE]";a$ 

190 a$=a$+"[15xSPACE]":fora=ltol6:poke 

49191+a,asc(mid$(a$,a,1)):next 
200 fora=0to34:readq:poke49152+a, q:kc= 
kc+q:next:poke4 9153, d 
210 ifkc<>5194thenprint"[CRSR-DOWN][SP 
ACE]foutje":end 

220 print"[CRSR-DOWN][SPACE]klaarmaken 
poke204,0:pokel98,0:waitl98 
,1:poke204,1 
230 sys49152 

240 print:print"[CRSR-DOWN][SPACE]klaa 
r. " 

250 end 

260 rem joystickprogramma data 
270 rem 

280 datal41,095,195, 169, 001, 133,254,17 

3 

290 data0 64,192,170,189, 075, 192, 134,25 
5 

300 datal68,010,170,169, 000,200, 056, 04 
2 

310 datal36,208,252,168,132,253, 173, 0 9 

5 

320 datal95,074,072,17 6,02 6, 173,091,19 
5 

330 data208,021,189,001,208,205, 067,19 
2 

340 data208,010,165,254,240,006,152,14 
1 

350 data091,195,208,003, 222,001,208, 10 

4 

360 data074,072,176, 026, 173, 093,195, 20 
8 

370 data021,189,001,208,205,070,192,20 
8 

380 dataOlO,165,254,240, 006, 152, 141, 09 

3 

390 datal95,208,003,254,001,208,104,07 

4 

400 data072,17 6,050,173,090,195, 208,04 

5 

410 datal89,000,208,205,065,192,208,02 
0 

420 datal65,254,240, 016,173, 066, 192,07 
7 

430 data016,208,037,253,208,006,152,14 
1 

440 data090,195,208,017,222,000,208,18 
9 


450 dataOOO,208,201,255,208, 007, 152, 07 

7 

460 data016,208,141,016,208,104,074,07 
2 

470 datal7 6,048,173,092,195,208,043, 18 
9 

480 dataOOO,208,205,068,192,208,020,16 

5 

4 90 data254,240,016,173, 069, 192, 077, 01 

6 

500 data208,037,253,208,006,152,141,09 
2 

510 datal95,208,015,254,000,208,189, 00 
0 

520 data208,208,007,152,077, 016, 208,14 
1 

530 data016,208,104, 074,17 6, 004,169, 00 
1 

540 data208,002,169,000,141,094,195,16 
9 

550 dataOOO,133,254,166,255,202,240,00 
3 

560 data076,107,192,096,096,096,096,09 
6 

570 datal20,169,04 9,162,234,141, 020, 00 

3 

580 datal42,021,003,088,096, 096, 096, 09 
6 

590 data096,096,096,096, 032,072,193,16 
0 

600 dataOOl,132,253, 032,253,174, 032, 15 

8 

610 datal83,224,000,240,077,224,021,14 

4 

620 data005,162,014,076, 055, 164,142,00 
0 

630 datal92,134,255, 032,253, 174, 032,15 
8 

640 datal83,224,008,17 6,236,138,166, 25 

5 

650 datal57,011,192,202,208,235, 160,00 
0 

660 datal32,254,032,253,174,032,235,18 

3 

670 datal38,164,254,153,003, 192,165, 02 
0 

680 datal53,001, 192,165, 021,240, 002, 16 
5 

690 data255,153,002,192,192, 003, 240, 00 

4 

700 datal60,003,208,220, 032,253, 174,03 
2 

710 datal58,183,165,253,240, 021, 134,25 
2 

720 datal42,007,192,162,032,189,255,19 
1 

730 datal57,031,192,202,208,247, 134,25 
3 

740 data076,099,193, 134,251,142,007,19 
2 

750 datal20,169,193,162,229,141, 021, 00 
3 

760 datal42,020,003,088,0 96, 169, 000, 16 
2 

770 data016,157,07 9,195, 202,208,250,16 

5 

780 data251,240,037,198,251,208, 033, 17 
3 

790 data007,192,133,251,162, 032,189, 25 
5 

800 datal91,157,063,192,202,208,247,17 
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1 


810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 


930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 


3 

dataOOl,220,032,096,192,162,005,18 
9 

data089,195,157,079,195,202,208,24 
7 

datal65,252,240,037,198,252,208,03 
3 

datal73,039,192,133,252,162,032,18 
9 

data031,192,157,063,192,202,208,24 

7 

datal73,000,220,032,096,192,162,00 
5 

datal89,089,195,157,084,195,202,20 

8 

data247,076,049,234 
rem 

rem data m.1.wegsaven 
rem 

data 162,8,169,1,168,32,186,255,16 
9,16,162,40,160,192,32,189,255,169 
,96 

data 133,251,169,192,133,252,169,2 
51,162,68,160,194,32,216,255,96 
return 

rem joystickprogramma 

rem dit programma stelt u in 
rem staat om een of meerdere 
rem sprites te koppelen aan een 
rem of allebei de joysticks 
rem 

rem gebruiksaanwijzing 

rem 

rem u roept het programma aan 
rem met :'sys 49500 
rem (achter dit commando volgen 
rem nog enkele parameters) 
rem het programma loopt via het 
rem interrupt zodat u er geen 
rem last van heeft tijdens een 
rem programma. 

rem compleet ziet de opdracht er 
rem zo uit: 

rem' sys49500, a, sl, enz, x, y, p, q, sp 
rem (en daarna het zelfde voor 
rem de andere joystick).' 
rem 

rem-achter de eerste komma staat 
rem hoeveel sprites u aan de 
rem joystick in 'port 2' wilt 
rem koppelen gevolgd door de 
rem spritenummers ( 0t/m 7 ) 
rem dit getal ('a') mag ook 
rem groter zijn dan '8' ,, 

rem u koppelt in dat geval een 
rem sprite twee of meer malen 
rem aan de joystick waardoor 
rem die sprite twee of meer 
rem malen sneller gaat. 
rem 

rem-achter de spritenummers 
rem komen de x en y-coordinaten 
rem van de linker bovenhoek 
rem ( x en y) en de rechter 
rem onderhoek ( p en q ) van het 
rem blok waarin de sprite zich 
rem mag bewegen. 
rem 

rem-daarachter komt de snelheid 
rem waarmee de sprites zich 
rem mogen bewegen.deze loopt 


1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 


rem van 1 (snelst) tot hoger 
rem (langzamer).met de waarde'0' 
rem gaan de sprites het lang- 
rem zaamst. 
rem 

rem daarna volgt hetzelfde voor 
rem de joystick in 'port 1' 
rem 

rem wilt u dat een van de 
rem joysticks niet wordt 
rem ingeschakelt dan neemt u 
rem voor het sprite-aantal van 
rem de betreffende joystick het 
rem getal '0';de andere para- 
rem meters moeten weggelaten 
rem worden voor die betreffende 
rem joystick. 
rem 

rem het interrupt schakelt u uit 

rem met het commando:'sys49480'. 

rem het interrupt volgt dan 

rem zijn normale weg. 

rem ook met 'stop' en 'restore' 

rem wordt ditzelfde bereikt. 

rem 

rem u kunt ook de sprite die 

rem het eerst na het sprite- 

rem aantal komt,controleren of 

rem hij niet tegen het vastge- 

rem stelde blok komt. 

rem dit kan met de registers: 

rem 50000- 50003 (port 1) 

rem 50005 - 50008 (port 2) 

rem ( 50000/5 voor 'x' ) 

rem ( 50001/6 voor 'y' ) 

rem ( 50002/7 voor 'p' ) 

rem ( 50003/8 voor 'q' ) 

rem hetzelfde geldt voor'port 2' 

rem 

rem de vuurknop wordt gedetec- 
rem teerd in 50004 voor 'port 1' 
rem en in 50009 voor 'port 2'. 
rem 

rem u kunt dit programma in uw 
rem eigen programma verwerken 
rem door de data-regels in het 
rem programma te verwerken. 
rem u kunt ook , en dat is het 
rem beste, het wegge'save'de 
rem programma in uw programma 
rem laden met de regel: 
rem 0ifh=0thenh=l :load"naam",8,1 
rem of voor cassette: 
rem Oif h=0then h=l :load"naam" 
rem 

rem succes ! 

rem (m.klabbers) 


** EINDE LISTING joystick 


REGEL 

10 

95 

REGEL 

20 

235 

REGEL 

30 

117 

REGEL 

40 

143 

REGEL 

50 

234 

REGEL 

60 

143 

REGEL 

70 

127 

REGEL 

80 

143 

REGEL 

90 

97 

REGEL 

100 

51 

REGEL 

110 

53 

REGEL 

120 

12 8 


REGEL 

130 

128 

REGEL 

140 

128 

REGEL 

150 

113 

REGEL 

160 

215 

REGEL 

170 

209 

REGEL 

180 

179 

REGEL 

190 

97 

REGEL 

200 

5 

REGEL 

210 

108 

REGEL 

220 

217 

REGEL 

230 

163 

REGEL 

240 

90 
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REGEL 

250 

128 

REGEL 

600 

118 

REGEL 

950 

165 

REGEL 

260 

191 

REGEL 

610 

115 

REGEL 

960 

142 

REGEL 

270 

143 

REGEL 

620 

115 

REGEL 

970 

94 

REGEL 

280 

136 

REGEL 

630 

133 

REGEL 

980 

88 

REGEL 

290 

147 

REGEL 

640 

145 

REGEL 

990 

94 

REGEL 

300 

114 

REGEL 

650 

113 

REGEL 

1000 

143 

REGEL 

310 

140 

REGEL 

660 

12 6 

REGEL 

1010 

221 

REGEL 

320 

148 

REGEL 

670 

127 

REGEL 

102 0 

143 

REGEL 

330 

129 

REGEL 

680 

112 

REGEL 

1030 

197 

REGEL 

340 

115 

REGEL 

690 

115 

REGEL 

1040 

226 

REGEL 

350 

115 

REGEL 

700 

111 

REGEL 

1050 

104 

REGEL 

360 

145 

REGEL 

710 

129 

REGEL 

1060 

68 

REGEL 

370 

123 

REGEL 

720 

136 

REGEL 

1070 

101 

REGEL 

380 

117 

REGEL 

730 

12 9 

REGEL 

1080 

233 

REGEL 

390 

121 

REGEL 

740 

141 

REGEL 

1090 

253 

REGEL 

400 

137 

REGEL 

750 

121 

REGEL 

1100 

99 

REGEL 

410 

125 

REGEL 

760 

123 

REGEL 

1110 

153 

REGEL 

420 

140 

REGEL 

770 

139 

REGEL 

1120 

100 

REGEL 

430 

122 

REGEL 

780 

132 

REGEL 

1130 

190 

REGEL 

440 

131 

REGEL 

790 

133 

REGEL 

1140 

210 

REGEL 

450 

119 

REGEL 

800 

138 

REGEL 

1150 

181 

REGEL 

460 

120 

REGEL 

810 

124 

REGEL 

1160 

143 

REGEL 

470 

153 

REGEL 

820 

158 

REGEL 

1170 

182 

REGEL 

480 

122 

REGEL 

830 

135 

REGEL 

1180 

111 

REGEL 

490 

138 

REGEL 

840 

138 

REGEL 

1190 

155 

REGEL 

500 

126 

REGEL 

850 

132 

REGEL 

1200 

178 

REGEL 

510 

125 

REGEL 

860 

116 

REGEL 

1210 

21 

REGEL 

520 

127 

REGEL 

870 

159 

REGEL 

1220 

123 

REGEL 

530 

123 

REGEL 

880 

119 

REGEL 

1230 

78 

REGEL 

540 

133 

REGEL 

890 

143 

REGEL 

1240 

186 

REGEL 

550 

111 

REGEL 

900 

254 

REGEL 

1250 

198 

REGEL 

560 

163 

REGEL 

910 

143 

REGEL 

1260 

183 

REGEL 

570 

116 

REGEL 

920 

101 

REGEL 

1270 

43 

REGEL 

580 

144 

REGEL 

930 

4 7 

REGEL 

1280 

92 

REGEL 

590 

149 

REGEL 

940 

142 

REGEL 

1290 

143 


Digitale klok C 64 


|| 270 

Ij Klokken, het blijft de inzenders en hopelijk ook de Ie- 280 

zers boeien.Ditmaal staat er in grote cijfers de door u 29Q 

ij aangegeven tijd op het scherm. Dit programma klok 

werd ons toegezonden door Eric Goldstein. 320 


330 


10 

rem ****************************** 

340 


* * 

350 

20 

rem * digitale klok 

360 


* 

370 

30 

rem ****************************** 

380 


** 

390 

40 

ta=0 

400 

50 

gosub 1490 

410 

60 

poke 53280,0:poke53281,2 

420 

70 

input”[SHIFT-CLR][CTRL-8][5xCRSR-D 

430 


OWN][3xCRSR-RIGHT]geef[SPACE]de[SP 

440 


ACE]tijd[SPACE](uummss):";ta$ 

450 

80 

iflen(ta$)>=6thenti$=ta$ 

460 

90 

v=53248 

470 

100 

fori=0to7 

480 

110 

pokev+i*2,(i*40+20)and 255 

490 

120 

pokev+i*2+l, 130 

500 

130 

pokev+39+i,7 

510 

140 

ifi=2ori=5thenpokev+39+i, 0 

520 

150 

poke2040+i,244 

530 

160 

next 

540 

170 

pokev+33,2 

550 

180 

pokev+32,0 

560 

190 

pokev+21,255 

570 

200 

pokev+23,255 

580 

210 

pokev+2 9,255 

590 

220 

pokev+16,0 

600 

230 

poke2042,255:poke2045,255 

610 

240 

pokev+16,192 

620 

250 

print"[CTRL-2][SHIFT-CLR][8xCRSR-D 

630 


OWN][3xCRSR-RIGHT]uren[9xSPACE]min 

640 


uten[SxSPACE]seconden" 

650 


REGEL 

1300 

250 

REGEL 

1650 

REGEL 

1310 

57 

REGEL 

1660 

REGEL 

1320 

99 

REGEL 

1670 

REGEL 

133Q 

77 

REGEL 

1680 

REGEL 

1340 

121 

REGEL 

1690 

REGEL 

1350 

7 

REGEL 

1700 

REGEL 

1360 

143 

REGEL 

1710 

REGEL 

1370 

143 

REGEL 

1720 

REGEL 

1380 

155 

REGEL 

1730 

REGEL 

1390 

114 

REGEL 

1740 

REGEL 

1400 

230 

REGEL 

1750 

REGEL 

1410 

59 

REGEL 

1760 

REGEL 

1420 

80 

REGEL 

1770 

REGEL 

1430 

137 

REGEL 

1780 

REGEL 

1440 

141 

REGEL 

1790 

REGEL 

1450 

143 

REGEL 

1800 

REGEL 

1460 

163 

REGEL 

1810 

REGEL 

1470 

227 

REGEL 

1820 

REGEL 

1480 

143 

REGEL 

1830 

REGEL 

1490 

67 

REGEL 

1840 

REGEL 

1500 

18 

REGEL 

1850 

REGEL 

1510 

162 

REGEL 

1860 

REGEL 

1520 

80 

REGEL 

1870 

REGEL 

1530 

131 

REGEL 

1880 

REGEL 

1540 

62 

REGEL 

1890 

REGEL 

1550 

10 

REGEL 

190 0 

REGEL 

1560 

144 

REGEL 

1910 

REGEL 

1570 

45 

REGEL 

1920 

REGEL 

1580 

143 

REGEL 

1930 

REGEL 

1590 

211 

REGEL 

1940 

REGEL 

1600 

98 

REGEL 

1950 

REGEL 

1610 

156 

REGEL 

1960 

REGEL 

1620 

233 

REGEL 

1970 

REGEL 

1630 

247 



REGEL 

1640 

238 




fori=0to7 
ifi=2ori=5then320 
a=i+l:ifa>6thena=a-l 
ifa>3thena=a-l 
b=val(mid$(ti$,a,1)) 
poke2040+i,b+245 
next 

pokev+44,0:clr:t$=ti$:v=53248 

ifti$=t$then340 

pokev+44,2:goto260 

rem *** data voor cijfers *** 

data 246 

data 0,0,0,0,0,0,0 
data 0,0,0,0,0,0,28 
data 0,0,36,0,0,68,0 
data 0,132,0,1,4, 0,1 
data 100,0,1,164,0,0,36 
data 0,0,36,0,0,36,0 
data 0,36,0,0,36,0,0 
data 36,0,0,36,0,1,231 
data 128,1,0,128,1,255,128 
data 247 

data 0,0,0,0,0,0,0 
data 0, 0, 0, 0, 0, 0, 126 
data 0,0,129,0,1,60,128 
data 2, 66,64,2,66,64,2 
data 66,64,3,194,64,0,4 
data 128,0,9,0,0,18,0 
data 0,36,0,0,72,0,0 
data 144,0,1,32,0,2,127 
data 192,2,0,64,3,255,192 
data 248 

data 0,0,0,0,0,0,0 
data 0,0,0,0,0,0,124 
data 0,0,130,0,1,57,0 
data 2,68,128,2,68,128,3 
data 196,128,0,4,128,0,9 
data 0, 0,18,0,0, 9, 0 
data 0,4,128,3,196,128,2 
data 68,128,2,68,128,1,57 


143 

65 

103 

135 

229 

225 

171 

112 

123 

37 

40 

33 

36 

165 

143 

80 

157 

240 

143 

240 

86 

205 

181 

36 

132 

30 

11 

100 

0 

163 

143 

118 

161 
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660 

data 

0,0,130,0,0,124, 0 

670 

data 

249 

680 

data 

0, 0, 0, 0, 0, 0,0 

690 

data 

0,0,0,0,0,0,15 

700 

data 

0,0,17,0,0,33,0 

710 

data 

0,73,0,0,153,0,1 

720 

data 

41,0,2,73,0,4,137 

730 

data 

0,4,249,224,4,0,32 

740 

data 

7,249,224,0,9,0,0 

750 

data 

9, 0, 0, 9, 0, 0, 9 

760 

data 

0,0, 9,0,0,15,0 

770 

data 

250 

780 

data 

0, 0, 0,0,0, 0, 0 

790 

data 

0,0,0,0,0,3,255 

800 

data 

192,2,0,64,2,127,192 

810 

data 

2, 64,0,2, 64,0,2 

820 

data 

64,0,2,126,0,2,1 

830 

data 

0,3,252,128,0,2,64 

840 

data 

0,2, 64,0,2, 64,3 

850 

data 

194, 64,2,66,64,1,60 

860 

data 

128,0,129,0,0,126,0 

870 

data 

251 

880 

data 

0,0,0,0,0,0,0 

890 

data 

0, 0, 0, 0, 0, 0, 127 

900 

data 

0,0,128,128,1,62,64 

910 

data 

2,65,192,2,64,0,2 

920 

data 

64,0,2,64,0,2,126 

930 

data 

0,2, 1, 0,2, 60, 128 

940 

data 

2,66,64,2,66,64,2 

950 

data 

66,64,2,66,64,1,60 

960 

data 

128,0,129,0,0,126,0 

970 

data 

252 

980 

data 

0,0,0,0,0,0,0 

990 

data 

0,0,0,0,0,3,255 

1000 

data 

192,2,0,64,3,254,64 

1010 

data 

0,2,64,0,2,64,0 

1020 

data 

4,128,0,4,128,0,9 

1030 

data 

0,0,9,0,0,18,0 

1040 

data 

0,18,0,0,36,0,0 

1050 

data 

36,0,0,72,0,0,72 

1060 

data 

0,0,144,0,0,240,0 

1070 

data 

253 

1080 

data 

0 , 0 , 0 , 0 , 0 , 0 , 0 

1090 

data 

0,0,0,0,0,0,124 

1100 

data 

0, 0, 130,0,1,57,0 

1110 

data 

2, 68,128,2,68,128,2 

1120 

data 

68,128,2,68,128,1,57 
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3 
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70 
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80 
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340 

180 
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600 
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90 

14 
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350 
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135 
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360 

241 
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REGEL 

110 

235 

REGEL 

370 

31 

REGEL 

630 

REGEL 

120 

89 

REGEL 

380 

219 

REGEL 

640 

REGEL 

130 

89 

REGEL 

52428 

70 

REGEL 

650 

REGEL 

140 

145 

REGEL 

400 

82 

REGEL 

660 

REGEL 

150 

22 

REGEL 

410 

71 

REGEL 

670 

REGEL 

160 

130 

REGEL 

420 

225 

REGEL 

680 

REGEL 

170 

91 

REGEL 

430 

77 

REGEL 

690 

REGEL 

180 

88 

REGEL 

440 

77 

REGEL 

700 

REGEL 

190 

194 

REGEL 

450 

180 

REGEL 

710 

REGEL 

200 

196 

REGEL 

460 

138 

REGEL 

720 

REGEL 

210 

202 

REGEL 

470 

32 

REGEL 

730 

REGEL 

220 

90 

REGEL 

480 

219 

REGEL 

740 

REGEL 

230 

139 

REGEL 

490 

68 

REGEL 

750 

REGEL 

240 

198 

REGEL 

500 

233 

REGEL 

760 

REGEL 

250 

253 

REGEL 

510 

205 

REGEL 

770 

REGEL 

260 

135 

REGEL 

520 

0 

REGEL 

780 


1130 

data 

0,0,130,0,1,57,0 

1140 

data 

2,68,128,2,68,128,2 

1150 

data 

68,128,2,68,128,1,57 

1160 

data 

0,0,130,0,0,124,0 

1170 

data 

254 

1180 

data 

0,0, 0,0,0,0,0 

1190 

data 

0, 0, 0, 0, 0, 0, 126 

1200 

data 

0, 0, 129, 0,1, 60, 128 

1210 

data 

2,66,64,2,66,64,2 

1220 

data 

66, 64,2, 66, 64, 1, 60 

1230 

data 

64,0,128,64,0,126, 64 

1240 

data 

0,2,64,0,2,64,0 

1250 

data 

2,64,3,130,64,2,124 

1260 

data 

128,1,1,0,0,254,0 

1270 

data 

245 

1280 

data 

0, 0, 0, 0, 0, 0, 0 

1290 

data 

0,0,0,0,0,0,255 

1300 

data 

0,1,0,128,2,126,64 

1310 

data 

4,129,32,4,130,32, 4 

1320 

data 

132,32,4,137,32,4,147 

1330 

data 

32,4,165,32,4,201,32 

1340 

data 

4,145,32,4,33,32,4 

1350 

data 

65,32,4,129,32,2, 126 

1360 

data 

64,1,0,128,0,255,0 

1370 

data 

255 

1380 

data 

0,0,0,0,0,0,0 

1390 

data 

0,0,0,0,0, 0,60 

1400 

data 

0, 0, 126, 0,0, 126, 0 

1410 

data 

0,126,0,0,126,0,0 

1420 

data 

o 

o 

o 

o 

o 

o 

o 

1430 

data 

0, 0, 0, 0, 0,0, 0 

1440 

data 

0,0,0,0,60,0,0 

1450 

data 

126,0,0,126,0,0,126 

1460 

data 

0,0,126,0,0,60,0 

1470 

data 

-1 

1480 

rem *** sprite data lezen *** 

1490 

read 

a:ifa=-lthenl540 

1500 

print 

"[SHIFT-CLR]sprite[SPACE] 


a:ta= 

: ta+l 

1510 

fori= 

0to62:readx 

1520 

poke64*a+i,x:next 

1530 

goto 

1490 

1540 

fori= 

0to62:poke244*64+i,0:next 

1550 

return 


** EINDE LISTING di-klok 


136 

REGEL 

790 

74 

REGEL 

1050 

134 

77 

REGEL 

800 

91 

REGEL 

1060 

.170 

230 

REGEL 

810 

85 

REGEL 

1070 

29 

94 

REGEL 

820 

131 

REGEL 

1080 

219 

33 

REGEL 

830 

238 

REGEL 

1090 

66 

219 

REGEL 

840 

86 

REGEL 

1100 

124 

66 

REGEL 

850 

50 

REGEL 

1110 

51 

124 

REGEL 

860 

27 

REGEL 

1120 

108 

52 

REGEL 

870 

27 

REGEL 

1130 

124 

46 

REGEL 

880 

219 

REGEL 

1140 

51 

29 

REGEL 

890 

69 

REGEL 

1150 

108 

42 

REGEL 

900 

36 

REGEL 

1160 

166 

108 

REGEL 

910 

194 

REGEL 

1170 

30 

166 

REGEL 

920 

188 

REGEL 

1180 

219 

34 

REGEL 

930 

129 

REGEL 

1190 

68 

219 

REGEL 

940 

205 

REGEL 

1200 

233 

17 

REGEL 

950 

0 

REGEL 

1210 

205 

73 

REGEL 

960 

27 

REGEL 

1220 

0 

127 

REGEL 

970 

28 

REGEL 

1230 

93 

187 

REGEL 

980 

219 

REGEL 

1240 

83 

239 

REGEL 

990 

74 

REGEL 

1250 

33 

194 

REGEL 

1000 

43 

REGEL 

1260 

179 

246 

REGEL 

1010 

83 

REGEL 

1270 

30 

26 

REGEL 

1020 

194 

REGEL 

1280 

219 

2 6 

REGEL 

1030 

29 

REGEL 

1290 

71 

219 

REGEL 

1040 

77 

REGEL 

1300 

236 
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REGEL 

1320 

138 

REGEL 

1450 

22 

REGEL 

1330 

81 

REGEL 

1460 

122 

REGEL 

1340 

241 

REGEL 

1470 

225 

REGEL 

1350 

91 

REGEL 

14 80 

250 

REGEL 

1360 

237 

REGEL 

1490 

205 

REGEL 

1370 

31 

REGEL 

1500 

66 

REGEL 

1380 

219 

REGEL 

1510 

209 

REGEL 

1390 

17 

REGEL 

1520 

33 

REGEL 

1400 

173 

REGEL 

1530 

87 

REGEL 

1410 

173 

REGEL 

1540 

68 

REGEL 

1420 

17 

REGEL 

1550 

140 

REGEL 

1430 

219 





Lockin Man C 64 


Ook dit programma is er één van de hand van Erik 
Goldstein. Hij heeft het programma Lockin Man ge¬ 
noemd. De naam verraad de bedoeling van het spel 
al. U moet de figuurtjes proberen in het doolhof in te 
sluiten. Het sturen van uw mannetje gebeurt met de 
joystick in poort twee. Een stukje muur verschijnt er 
links van uw mannetje als u op de vuurknop drukt. 
Denk erom het lijkt veel makkelijker dan het is. 

10 rem ****************************** 


rem * 

k 


lockin' man 




rem door luc de cock 

rem 2990haacht (belgie) 

rem 

forx=49192to49236:reada:pokex,a:ne 
xt 

data32,121,O,32,253,174,32,138, 173 
,32,191,177,166,100,164,101, 96,32, 
40,192 

datal32,63,132,20,134,64, 134,21,32 
, 19,166,165, 95, 56,233,1,133,65,165 
, 96,233 

dataO,133,66,96 

pokel98,0 

rem 

goto870 

rem * hoofdlus spel ************** 
★ 

ob=peek(53278):bo=0 
poke53248,zx+x:poke5324 9, y+zy 
poke53250,zx+s:poke53251,zy+p 
poke53252,zx+sl:poke53253,zy+pl 
if dc>5 thenpoke53254,zx+s2:poke53 
255,zy+p2 

if dc=ll then 2750 
ob=peek(53278):bo=0 
if ti>=200then gosub 650 
bo=peek(53278):ob=peek(53278):if b 
oOOthen 750 

if peek(56320)=lll then gosub 590 
rem * besturing * 
a=peek(56320) 

if a=119 then x=x+8:gosub 560:ifte 
=160then x=x-8 

if a=123 then x=x-8:gosub 560:ifte 
=160then x=x+8 

if a=125 then y=y+8:gosub 560:ifte 
=160then y=y-8 

if a=126 then y=y-8:gosub 560:ifte 
=160then y=y+8 
gosub560:if te=32 then 360 


pokel024+(x/8)+40*int(y/8),32:ts=t 

s+10:pt=pt-l:print"[HOME][CTRL-2]" 

tab(22)"punten";ts 

if pt=0thengr=10:sc=sc+l:dc=dc+l: 

ifdc=12thendc=l: sc=0 :goto960 

if pt=0then goto 960 

on pp gosub 400,420,440,460 

on pr gosub 480,500,520,540 

if dc>5 then on pq gosub 2840,2860 

,2880,2900 

gotol70 

s=s-8:gosub570:ifte=160thens=s+8: 
pp=int(rnd(1)*2)+3:return 
return 

s=s+8:gosub570:ifte=160thens=s-8: 
pp=int(rnd(l)*2)+3:return 
return 

p=p-8:gosub570:ifte=160thenp=p+8: 
pp=int(rnd(1)*2)+1:return 
return 

p=p+8:gosub570:ifte=160thenp=p-8: 
pp=int(rnd(1)*2)+1:return 
return 

sl=sl-8:gosub 580:ifte=160thensl= 
s1+8:pr=int(rnd(1)*2)+3:return 
return 

sl=sl+8:gosub 580:ifte=160thensl= 
sl-8:pr=int(rnd(1)*2)+3:return 
return 

pl=pl-8:gosub 580:ifte=160thenpl= 
pl+8:pr=int(rnd(1)*2)+1:return 
return 

pl=pl+8:gosub 580:ifte=160thenpl= 
pl-8:pr=int(rnd(1)*2)+1:return 
return 

te=peek(1024+(x/8)+40*int(y/8)):re 
turn 

te=peek(1024+(s/8)+40*int(p/8)):re 
turn 

te=peek(1024+(sl/8)+40*int(pl/8)): 
return 

rem * plaats speler blokje ******* 
★ 

e=x-8:f=y:ts=ts-10 

if peek(1024+(e/8)+40*int(f/8))=16 

Othen return 

if peek(1024+(e/8)+40*int(f/8))=46 
then pt=pt-l 

poke 1024+(e/8)+40*int(f/8) , 160 
return 

rem * verplaats extra blokje ***** 
* 

pokel024+(q/8)+40*int(r/8) ,32 
q= (int (rnd (1) *26) *8) + 8 
r=(int(rnd(1)*21)*8)+8 
if peek(1024+(q/8)+40*int(r/8))=16 
Othen 670 

if peek(1024+(q/8)+40*int(r/8))=46 
then pt=pt-l 

pokel024+(q/8)+40*int(r/8) , 160 

eb=eb+10 

ti$="000000" 

return 

rem * speleinde routine ********** 

k 

gosub 2920 

if x+4>s and x-4<s and y+4>p and y 
-4<p then 800 

if x+4>sl and x-4<sl and y+4>pl an 
d y-4<pl then 800 

sl=120:pl=40:s2=16:p2=168:pq=l:pr= 
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2:pp=2:forw=0to200:nextw:gotol50 

800 poke53269,0 

810 print"[CTRL-2][SHIFT-CLR][3xCRSR-D 
OWN] " 

820 print"[6xCRSR-RIGHT][COM-A][SHIFT- 

*][COM-S][COM-A][SHIFT-*][COM-S][C 
OM A][COM-R][COM-S][COM-A][SHIFT-* 

][COM-S][3xSPACE][COM-A][SHIFT-*][ 
2xCOM-S][SPACE][2xCOM-A][SHIFT-*][ 
COM-S][COM-A][SHIFT-*][COM-S]" 

830 print"[6xCRSR-RIGHT][SHIFT--][SPAC 

E][COM-S][COM-Q][SHIFT-*][COM-W][3 
xSHIFT--][COM-Q][SHIFT-*][4xSPACE] 
[SHIFT—][SPACE][2xSHIFT—][SPACE] 
[SHIFT—][COM-Q][SHIFT-*][SPACE][C 
OM Q][COM-R][COM-X]" 

840 print"[6xCRSR-RIGHT][COM-Z][SHIFT- 
*] [2xCOM-X] [SPACE] [COM-Z] [COM-X] [S 
PACE] [2xCOM-Z] [SHIFT-*] [COM-X] [3xS 
PACE][COM-Z][SHIFT-*][COM-X]J[SHIF 
T *]K[COM-Z][SHIFT-*][2xCOM-X][COM 
Z] " 

850 print"[7xCRSR-DOWN][lOxCRSR-RIGHT] 
u[SPACE]haalde";ts;"punten" 

860 forw=0tol000 :nextw:poke53269, 0:run 

120 

870 rem * intro-scherm *************** 
* 

880 poke53280,0:poke53281,0:zx=24:zy=5 

0:dc=l: sc=0 

890 print"[CTRL-2][SHIFT-CLR][22xCRSR- 
DOWN][8xCRSR-RIGHT]druk[SPACE]een[ 
SPACE]toets[SPACE]voor[SPACE]start 

II 

900 print"[3xCRSR-UP][6xCRSR-RIGHT]vuu 
rknop[SPACE]=[SPACE]stukje[SPACE]m 
uur[SPACE]links" 

910 poke646,rnd(1)*15+1 

920 print"[HOME][4xCRSR-DONN][5xCRSR-R 
IGHT][COM-R][2XSPACE][COM-A][SHIFT 
*][COM-S][COM-A][SHIFT-*][2xCOM-S 
][COM-A][COM-S][SPACE][COM-R][SPAC 
E][COM-A][SHIFT-*][2xCOM-S][2xSPAC 
E][COM-A][COM-R][COM-S][COM-A][SHI 
FT *][COM-S][COM-A][SHIFT-*][COM-S 
]" 

930 print"[5xCRSR-RIGHT][SHIFT--][2xSP 
ACE][SHIFT--][SPACE][2xSHIFT--][2x 
SPACE][COM-Q][COM-W][2xSPACE][SHIF 
T -][SPACE][SHIFT—][SPACE][SHIFT- 
-][3xSPACE][3XSHIFT--][COM-Q][SHIF 
T *][COM-W][SHIFT—][SPACE][SHIFT- 

940 print"[5xCRSR-RIGHT][COM-Z][SHIFT- 
*][COM-X][COM-Z][SHIFT-*][COM-X][C 
OM Z][SHIFT-*][2xCOM-X][COM-Z][COM 
X][SPACE][COM-E][SPACE][COM-X][SP 
ACE][COM-Z][3xSPACE][COM-X][SPACE] 
[COM-Z] [COM-X] [SPACE] [COM-Z] [COM-X 
][SPACE][COM-Z]" 

950 geta$:ob=peek(56320):ifa$="" and o 
bOlll then 910 

960 rem * schermopbouw *************** 
★ 

970 poke53269,0:print"[CTRL-6][SHIFT-C 

LR] " 

980 pt=0:restore 

990 rem 

1000 if dc=ll thensys49209,2400:gotol07 
0 

1010 if sc=0thensys49209, 980 


1020 if sc=l thensys49209,1710 
1030 if sc=2 thensys49209,1940 
1040 if sc=3 thensys49209,1400 
1050 if sc=4 thensys49209,2150 
1060 if sc=5 thensc=0 :sys49209, 980 
1070 fora=l to 22 
1080 read a$:b$="" 

1090 for b=l to 27 
1100 c$=mid$(a$,b,1) 

1110 if c$="0" then c$="[CTRL-9][SPACE] 
[CTRL-0 ]" 

1120 if c$="[SPACE]" then c$="[SPACE]" 
1130 if c$="." then c$=".":pt=pt+l 
1140 b$=b$+c$ 

1150 next b 

1160 print"[SPACE]";b$ 

1170 next a 

1180 print"[HOME][CTRL-2][SPACE]scherm" 
;dc;tab(22)"punten";ts 
1190 rem * sprites inlezen ************ 
* 

1200 sys49209,860 

1210 forw=0to62:reada:pokel2288+w, a:nex 
t:forw=0to62:reada:pokel2352+w,a:n 
ext 

1220 data60,0,0,12 6,0,0,219, 0,0,255, 0, 0 
,189,0,0,195,0,0,102,0,0, 60,0, 0, 0, 
0,0 

1230 dataO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0 

1240 data66, 0, 0, 60, 0, 0, 90, 0, 0, 90,0,0, 12 
6, 0,0,213,0, 0, 171, 0, 0,126, 0,0,0, 0, 
0 

1250 dataO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0, 0,0, 0 

1260 poke2040,192:poke2041,193:poke2042 

,193:poke2043,193 

1270 poke53287,7:poke53288,1:poke53289, 

3:poke53290,10 
1280 rem 

1290 rem * init *********************** 
* 

1300 x=112 :y=128 : s=120 :p=72 : sl=104 :pl=7 

2:pr=2:pp=l:s2=16:p2=168:pq=2:ti$= 
"000000 

1310 ifdc=llthens=176:p=40:sl=48:pl=56: 
s2=176:p2=72 

1320 ob=peek(53278):ob=peek(53278) 

1330 q=10:r=10 

1340 gosub 670 

1350 poke53269,7:ifdc>5thenpoke53269,15 

1360 goto 150 

1370 rem * scherm opbouw ************** 
★ 

1380 rem 123456789012345678901234567 
1390 data"000000000000000000000000000" 

1400 data"0 .000.0" 

1410 data"0. 000000.00.00.000000.0" 

1420 data"0.0....0....000....0....0.0" 
1430 data"0 .0.00.0.000[3xSPACE]000.0.00 
.0.0" 

1440 data"0 ... 00.000.00... 0" 

1450 data"0000000.0.0.000.0.0.0000000" 

1460 data"0 .0....0....0.0" 

1470 data"0. 00000000.0.0.0.00000000.0" 

1480 data" 0.0.0.0.0" 

1490 data"00.0.0000.00.0.00.0000.0.00" 

1500 data" 00.0 . . . . 0.0....0.00" 

1510 data"00.0.00.0.0000000.0.00.0.00" 
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1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 



1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 


2130 

2140 

2150 

2160 

2170 

2180 

2190 


data" 0 . .0 .0. .0" 

data"0 .0000000.0000000.0000000.0" 

data"0 .0 . . .0.0.0. . .0.0" 

data"0 ...0.0.000.0.0.000.0.0...0" 

data"0 .000.0.0.0.0.000.0" 

data"0 .0.0.0.0.0" 

data"0.000000000.0.0.000000000.0" 

data"0 .0.0" 

data"000000000000000000000000000" 
rem 123456789012345678901234567 
data"000000000000000000000000000" 

data"0 .0.0" 

data"0.0000.000000.... 00000000.0" 

data"0 .0.0 . . . . 000.0.0" 

data"0 .0.0.0...0.0[3xSPACE]0...0.0 
.0.0" 

data"0 .0...000.0..0000.000...0.0" 
data"0.00000...00.000 .... 00000.0" 

data"0 .0.0. .0.0.0.0.0" 

data"0 .000...00.0.0.0.00.0.0.000" 
data"0 . . .0.0.0. ... 0 . 0 ... .0.0.0.0" 
data"0. 0.0.0...0000...00.0.0.0.0" 

data"0 .0.0.000.0.0.0.0.0" 

data"0 .0.000.00000.000.0. ..0" 

data"0. 0.000.0. . . .0. . . .000" 

data"0 ...0....0.00.0.00.0.0000.0" 

data"0 .000.00.0.0.0.0.0" 

data"0 ..0.0.0.000.. .000.0.00" 

data"0 .00.00000.0.0.0" 

data"0.0. . .000.0.0. . .0.00.0" 

data"0 .0.0.. . .0.. .0 . . . 0.0.0.0 . .0" 

data"0 . ..0..0...0.0.0.00" 

data"000000000000000000000000000" 
rem 123456789012345678901234567 
data"000000000000000000000000000" 

data”0 .0. . . .000.0" 

data"0 .0000000.00 .... 0.000.0" 

data"0 ..0....0.00000..00.00000.0" 

data"00.0.0.0[3xSPACE]0.00.00 

. . .0” 

data"00. . . 0.00. ..000..00.00.0.00" 
data"00.0.. .0..0.000.000.0. .0. .0" 

data"0 . .. .000.00. .0.0.000.0" 

data"0.00.000.0.0000.0.00. .0" 

data"0.00.0...000.0.0000.0.00.00" 
data"0.00. ..00000.0.0000 ... 00.00" 


data"0.00000.00.0.00.00" 

data" 0.00000.0.00.000.0.00" 

data"0 .0.0.0.0.000000" 

data"000. 0.0.0.00.0.0.0" 

data"00.0.0.00.0.000. .0" 

data"0. .000.0. . . .000. . . .0.000.00" 

data"0. 0000.0.000. . .000.0.0" 

data"0 .0. . .0.0.000.000000.0" 

data"0.00.0.000.0.0.000000.0" 

data”0 . . . .0.000.0" 

data"000000000000000000000000000" 
rem 123456789012345678901234567 
data"000000000000000000000000000" 

data"0 . . . .0.0.0. . . .0" 

data" 0 . . . .0.0.00" 

data"0.000. .0. . . .0. . .0" 

data"0 . . .0.0[3xSPACE]0. 

. . .0" 


data” 00.0000 

data"0 ... 0 ... 0 ... 00. 

data"0 .0 . . 0 . 

data"0 .0 . . 0 . 

data"0 .00000 

data"0 .0 . . . . 

data"0 . 


. . . 0" 

. . . 0 " 

. . . 0 " 

. . . 0 " 

. . . 0 " 

. . 00 " 
0 . 00 " 


2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2 690 

2700 

2710 

2720 


data"0 .0" 

data"0 .0. . .000.0" 

data" 0.0" 

data" 00.0" 

data" 0 . . 0.0 " 

data"0 .0.0" 

data"0 .0" 

data"0 . ..0" 

data"0.0.0.0. .0" 


data"000000000000000000000000000" 
rem 123456789012345678901234567 
data"000000000000000000000000000" 

data"0.000. . .000.00" 

data"0.0000.0...0.00.0000. .0" 

data"0 .0.0.000.0. . . .0. . .0.0" 

data"0 .000.00 . . .0. . .000.0" 

data"0 ...0.0000000000...0000.0.0" 

data"0.0.0... .0.. .0.. .00.0.0" 

data"0.0...00.0.0.0.0000.000...0" 

data"0_0.0.. .0.0.0...0..0.000" 

data"000..0.0000..0.0.0.0..0...0" 
data"0.00.0.. ..0.0000.0.0. .0.0.0" 


data"00. 

.0 

.00000000.0000.0. 

. .0" 

data"00. 


.0..0...0. 

. .0" 

data"0 .. 


...0000000.0.00.. 

.00" 

data"0.0 


. . .0.0. . .00. . 

. .0" 

data"0 .0 

.0 

.000.000.0000_ 

. .0" 

data"0 . . 


.0. . ..0. 

. .0" 

data"000 

00 

00.0000000.0. 

.00" 

data"0. . 


. . .0.0. . . 

. . 0" 


data"0.0. .00000. . . .0. . .0" 

data"000000000000000000000000000" 
data"000000000000000000000000000" 

data"0 [SPACE]. 

..[SPACE]0" 

data"0 [SPACE] 0.0.0.. 

.0[SPACE]0" 

data"0 [SPACE]00000000000000000.000 
00[SPACE]0" 

data"0[SPACE]0[SPACE]0[17xSPACE]0. 
0[SPACE]0" 

data"0 [SPACE]0[SPACE]00.0000000000 
000000.0[SPACE]0" 

data"0[SPACE]0[SPACE]0[17xSPACE]0. 
0[SPACE]0" 

data"0?0[SPACE]000000000000000.000 
,0?0" 

data"0[SPACE]0[SPACE]0. 

.0.0[SPACE]0" 

data"0 [SPACE]00000.000000000000000 
00[SPACE]0" 

data"0[3xSPACE]0[17xSPACE]0[3xSPAC 
E] 0" 

data"0 [SPACE]00000000000.000000000 
00[SPACE]0" 

data"0 [SPACE] 0.0.0. . . . 

.0[SPACE]0" 

data"0 [SPACE] 0.00000.00000 

.0[SPACE]0" 

data"0[SPACE]0.0...0.0000000.0...0 
.0[SPACE]0" 

data" 0 [SPACE] 0.0.0.0.0.0.0 

.0[SPACE]0" 

data"0 [SPACE]0.0.0.00000000000.0.0 
.0[SPACE]0" 

data"0[SPACE]0.0.0.00...0...00.0.0 
.0[SPACE]0" 

data"0 [SPACE]0.. .0....0.0.0....0.. 

.0[SPACE]0" 

data"0 .0000000000.0.0000000000.0" 
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ft 


print-out print-out print-out print-out print-out 


2730 

data"0 . 

.0. . . 


. .0" 

2870 


return 






2740 

data"000000000000000000000000000" 

2880 


p2=p2-8:gosub2950 : 

: ifte=160thenp2 

=P 

2750 

if 

x<32andy>5 6andcc=0then27 80 




2+8:pq=int(rnd(1)*2)+1:return 


2760 

if 

x>18 8andy>5 6andcc=lthen2 800 

2890 


return 






2770 

goto 230 



2900 


p2=p2+8:gosub2950: 

ifte=160thenp2 

=P 

2780 

pokel024+2+80,160:cc=l 





2-8:pq=int(rnd(l)*2) 

+1:return 


2790 

pokel024+9+40*13,32:goto2770 


2910 


return 






2800 

pokel024+26+80,160 



2920 


if dc<=5 then 

return 




2810 

pokel024+19+13*40,32 



2930 


if x+4>s2 and 

x-4<s2 

and y+4>p2 

an 

2820 

pokel024+24+160,32:cc= 

2 




d y-4<p2 then800 





2830 

goto 2770 



2940 


return 






2840 

s2= 

s2-8 : 

gosub2950: ifte; 

=160thens2=s 

2950 


te=peek(1024+(s2/8)+40*int(p2/8) 

) : 


2+8 

:pq=int(rnd(l)*2)+3 

: return 




return 





2850 

return 












2860 

s2= 

s2+8 : 

gosub2950:ifte^ 

=160thens2=s 

** EINDE LISTING lock-in 






2-8 

:pq=int(rnd(l)*2)+3 

: return 
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REGEL 1840 
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2450 

187 

REGEL 

20 

92 

REGEL 630 

49 

REGEL 

1240 

144 

REGEL 1850 

185 


REGEL 

2460 

175 

REGEL 

30 

207 

REGEL 640 

142 

REGEL 

1250 

71 

REGEL 1860 

177 


REGEL 

2470 

189 

REGEL 

40 

143 

REGEL 650 

162 

REGEL 

1260 

75 

REGEL 1870 

195 


REGEL 

2480 

169 

REGEL 

50 

80 

REGEL 660 

23 

REGEL 

1270 

215 

REGEL 1880 

193 


REGEL 

2490 

195 

REGEL 

60 
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143 

REGEL 1890 

45 


REGEL 

2500 

169 

REGEL 

70 

143 

REGEL 680 
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REGEL 

1290 

221 

REGEL 1900 

191 


REGEL 

2510 

179 

REGEL 

80 

148 
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26 

REGEL 

1300 

224 

REGEL 1910 

189 


REGEL 

2520 

215 

REGEL 

90 

245 

REGEL 700 

38 

REGEL 

1310 

170 

REGEL 1920 

185 


REGEL 

2530 

215 

REGEL 

100 

54 

REGEL 710 

73 

REGEL 

1320 

248 

REGEL 1930 

191 


REGEL 

2540 

73 

REGEL 

110 

169 

REGEL 720 

203 

REGEL 

1330 

3 

REGEL 1940 

195 


REGEL 

2550 

81 

REGEL 

120 

149 

REGEL 730 

215 

REGEL 

1340 

42 

REGEL 1950 

195 


REGEL 

2560 

117 
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143 

REGEL 740 

142 
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1350 

14 

REGEL 1960 
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REGEL 

2570 

21 
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140 

40 

REGEL 750 

70 

REGEL 

1360 

31 

REGEL 1970 

191 


REGEL 

2580 

67 

REGEL 

150 

199 

REGEL 760 

90 

REGEL 

1370 

205 

REGEL 1980 

183 


REGEL 

2590 

21 

REGEL 

160 

12 

REGEL 770 

193 

REGEL 

1380 

21 

REGEL 1990 

183 


REGEL 

2600 

193 

REGEL 

170 

55 

REGEL 780 

133 

REGEL 

1390 

215 

REGEL 2000 

183 


REGEL 

2610 

35 

REGEL 

180 

27 

REGEL 790 

81 

REGEL 

1400 

171 

REGEL 2010 

189 


REGEL 

2620 

117 

REGEL 

190 

129 

REGEL 800 

252 

REGEL 

1410 

197 

REGEL 2020 

189 


REGEL 

2630 

135 

REGEL 

200 

38 

REGEL 8IQ 

168 

REGEL 

1420 

179 

REGEL 2030 

189 


REGEL 

2640 

117 

REGEL 

210 

155 

REGEL 820 

173 

REGEL 

1430 

55 

REGEL 2040 

193 


REGEL 

2650 

81 

REGEL 

220 

12 

REGEL 830 

47 

REGEL 

1440 

179 

REGEL 2050 

173 


REGEL 

2660 

97 

REGEL 

230 

236 

REGEL 840 

198 

REGEL 

1450 

203 

REGEL 2060 

215 


REGEL 

2670 

99 

REGEL 

240 

37 

REGEL 850 

165 

REGEL 

1460 

171 

REGEL 2070 

21 


REGEL 

2680 

89 

REGEL 

250 

181 

REGEL 860 

191 

REGEL 

1470 

203 

REGEL 2080 

215 


REGEL 

2690 

107 

REGEL 

260 

150 

REGEL 870 

212 

REGEL 

1480 

171 

REGEL 2090 

171 


REGEL 

2700 

95 

REGEL 

270 

6 

REGEL 880 

131 

REGEL 

1490 

199 

REGEL 2100 

171 


REGEL 

2710 

87 

REGEL 

280 

249 

REGEL 890 

68 

REGEL 

1500 

177 

REGEL 2110 

175 


REGEL 

2720 

207 

REGEL 

290 

244 

REGEL 900 

165 

REGEL 

1510 

199 

REGEL 2120 

33 


REGEL 

2730 

167 

REGEL 

300 

250 

REGEL 910 

141 

REGEL 

1520 

169 

REGEL 2130 

175 


REGEL 

2740 

215 

REGEL 

310 

251 

REGEL 920 

137 

REGEL 

1530 

207 

REGEL 2140 

173 


REGEL 

2750 

174 

REGEL 

320 

221 

REGEL 930 

70 

REGEL 

154 0 

175 

REGEL 2150 

169 


REGEL 

2760 

226 

REGEL 

330 

217 

REGEL 940 

108 

REGEL 

1550 

189 

REGEL 2160 

169 


REGEL 

2770 

30 

REGEL 

340 

178 

REGEL 950 

46 

REGEL 

1560 

185 

REGEL 2170 

175 


REGEL 

2780 

178 

REGEL 

350 

224 

REGEL 960 

247 

REGEL 

1570 

173 

REGEL 2180 

169 


REGEL 

2790 

131 

REGEL 

360 

158 

REGEL 970 

196 

REGEL 

1580 

205 

REGEL 2190 

169 


REGEL 

2800 

69 

REGEL 

370 

165 

REGEL 980 

76 

REGEL 

1590 

167 

REGEL 2200 

165 


REGEL 

2810 

33 

REGEL 

380 

29 

REGEL 990 

143 

REGEL 

1600 

215 

REGEL 2210 

173 


REGEL 

2820 

228 

REGEL 

390 

33 

REGEL 1000 

241 

REGEL 

1610 

21 

REGEL 2220 

165 


REGEL 

2830 

89 

REGEL 

400 

120 

REGEL 1010 

30 

REGEL 

1620 

215 

REGEL 2230 

167 


REGEL 

2840 

117 

REGEL 

410 

142 

REGEL 1020 

70 

REGEL 

1630 

167 

REGEL 2240 

167 


REGEL 

2850 

142 

REGEL 

420 

120 

REGEL 1030 

76 

REGEL 

1640 

201 

REGEL 2250 

167 


REGEL 

2860 

117 

REGEL 

430 

142 

REGEL 1040 

68 

REGEL 

1650 

177 

REGEL 2260 

165 


REGEL 

2870 

142 

REGEL 

440 

106 

REGEL 1050 

72 

REGEL 

1660 

45 

REGEL 2270 

165 


REGEL 

2880 

103 

REGEL 

450 

142 

REGEL 1060 

212 

REGEL 

1670 

191 

REGEL 2280 

171 


REGEL 

2890 

142 

REGEL 

460 

106 

REGEL 1070 

173 

REGEL 

1680 

195 

REGEL 2290 

215 


REGEL 

2900 

103 

REGEL 

470 

142 

REGEL 1080 

130 

REGEL 

1690 

177 

REGEL 2300 

21 


REGEL 

2910 

142 

REGEL 

480 

63 

REGEL 1090 

179 

REGEL 

1700 

193 

REGEL 2310 

215 


REGEL 

2920 

225 

REGEL 

490 

142 

REGEL 1100 

100 

REGEL 

1710 

181 

REGEL 2320 

179 


REGEL 

2930 

137 

REGEL 

500 

63 

REGEL 1110 

192 

REGEL 

1720 

189 

REGEL 2330 

189 


REGEL 

2940 

142 

REGEL 

510 

142 

REGEL 1120 

236 

REGEL 

1730 

183 

REGEL 2340 

181 


REGEL 

2950 

12 

REGEL 

520 

49 

REGEL 1130 

87 

REGEL 

1740 

191 

REGEL 2350 

183 





REGEL 

530 

142 

REGEL 1140 

143 

REGEL 

1750 

181 

REGEL 2360 

197 





REGEL 

540 

49 

REGEL 1150 

196 

REGEL 

1760 

189 

REGEL 2370 

179 





REGEL 

550 

142 

REGEL 1160 

126 

REGEL 

1770 

183 

REGEL 2380 

191 





REGEL 

560 

35 

REGEL 1170 

195 
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1780 

187 

REGEL 2390 

183 





REGEL 

570 

21 

REGEL 1180 

228 

REGEL 

1790 

183 

REGEL 2400 

189 





REGEL 

580 

119 

REGEL 1190 

26 

REGEL 

1800 

183 

REGEL 2410 

189 





REGEL 

590 

80 

REGEL 1200 

112 

REGEL 

1810 

181 

REGEL 2420 

171 





REGEL 

600 

3 

REGEL 1210 

194 

REGEL 

1820 

177 

REGEL 2430 

1 95 





REGEL 
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REGEL 1220 

252 
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215 
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Pesten C 16 


Dit maai stuurde Jos van Ooijen ons het spelletje 
pesten toe en omdat de spelregels nogal een ver¬ 
schillen heeft hij de spelregels in het menu opgeno¬ 
men tijdens het lezen hoort men een leuk melodietje. 
Dit is weer zo’n verslavend spelletje dat op regenach¬ 
tige zomeravonden menig uurtje zal doen verdwijnen. 
Programma pesten 16 

10 rem pesten c-16 & plus 4 

20 rem door jos van oijen 

40 rem boven-leeuwen 

50 trap2450:fora=lto8:keya,"":next 

60 color4,1:colorO,1,5:scnclr:vol8:b= 

27::wc=13:ws=13:printchr$(27)+"m" 

70 printchr$(142)chr$(8):pokel344,0 

80 char,0,3,"[COM-6][COM-Q]DIUDIUDIC[ 

COM-R]CUDI[COM-Q]Dl[SPACE]UDI[SPAC 
E][COM-W]UDI[8xSPACE]B[SPACE]B" 

90 char,0,4,"[CTRL-7][COM-Q]FK[COM-Q] 

CKJCI[SPACE]B[SPACE][COM-Q]CKB[SPA 
CE]B[SPACE]G[2xSPACE]CB[COM-Q]Dl[S 
PACE]&[SPACE]plus[SPACE][COM-Z]C[S 
HIFT +]" 

100 char,0,5,"[COM-7]B[2xSPACE]JFKJFK[ 

SPACE ] B [ SPACE ] JFKB [ SPACE ] B [ SPACE ] J 
FK[SPACE][COM-E]JFK[1OxSPACE]B" 

110 char,11,8,"[CTRL-2]door[SPACE]jos[ 

SPACE]van[SPACE]oijen":char,34, 9," 

W" 

120 char,0,10,"[COM-4]UDIUDI[COM-Q]DI[ 
2xSPACE][COM-Q]D[COM-R]DIUDI[COM-Q 
]D[COM-R]DIUDI[COM-Q]DIC[COM-R]C[S 
PACE]BUDI" 

130 char,0,11,"[CTRL-5][COM-Q]CK[COM-Q 

]CKB[SPACE]B[2xSPACE]B[SPACE]B[SPA 
CE]BG[SPACE]HB[SPACE]B[SPACE]B[COM 
Q]CKB[SPACE]B[SPACE]B[2xSPACE]B[C 
OM Q]CK" 

140 char,0,12,"[CTRL-3]JFKJFKB[SPACE]B 
[ 2XSPACE ] B [ SPACE ] B [ SPACE ] BJFKB [ SPA 
CE]B[SPACE]BJFKB[SPACE]B[SPACE]BJF 
KJFK" 

150 char,4,14,"[COM-5]UDIUDI[COM-AJDIB 

[SPACE]BB[SPACE][COM-A]DI[2xSPACE] 

UDI[SPACE]B[SPACE]B[SPACE][COM-A]D 
I" 

160 char,4,15,"[COM-1]G[SPACE][COM-S][ 
COM-Q]CKB[SPACE]HB[SPACE]BB[SPACE] 

B[SPACE]H[2xSPACE][COM-Q]C[COM-W][ 
SPACE]B[SPACE]B[SPACE][COM-Q]C[COM 
W] " 

170 char,4,16,"[COM-2]JFKJFK[COM-Z]FKJ 

FK[COM-Z]C[COM-Z]FK[2xSPACE]B[SPAC 
E]BWJFKW[COM-Z]FKW" 

180 char,16,23,"[CTRL-8](c)[SPACE]1987 

190 dimc$(108),b$(108) , s$(32) 

200 d=l:fora=lto4:readz$(a):nexta 
210 forl=lto52stepl3:fora=ltol+13:c$(a 
+d-l)=z$(1/13+1)+str$(a-1+1):nexta 
, 1 

220 data"S","Z","A","X" 

230 ifd<>55thend=55:goto210 

240 c$ (53)="jl";c$(54)="j2":c$(107)="j 

3":c$ (108)="j4" 

-50 char,12,20,"(effe[SPACE]schudde..) 

’60 rem kaarten schudden en delen 




a=rnd(-ti):fora=ltol08 
l=int(rnd(l)*108+1):b$(a)=c$(l):c$ 
(1)="" 

ifb$(a)=""then280 
forr=lto7:poke65287,r:nextr 
nexta 

fora=ltol3:c$(a)=b$(a):next 
fora=14to26:s$(a-13)=b$(a):next 
char,8,20,"[CTRL-5]bedankt[SPACE]v 
oor[SPACE]het[SPACE]wachten.[CTRL- 

1] ":fora=lto200step4:soundl, a+800, 
1:next 

fora=ltol00step2:soundl,1000-a,1:n 
ext:poke65287,8:a=0 
a=a+l:ifa=8thena=0 

colorl,8,a:char,7,20,"wil[SPACE]je 
[SPACE]instructies[SPACE](j/n)[SPA 
CE]?[CTRL-1]" 

getg$ : ifg$<>" j "andg$O"n"then360 
soundl,800,5:colorO,2,4:ifg$="j"th 
enl950 

rem kaarten speler printen 
scnclr 

fora=0to39:char,a,8,"C":next 
forp=0to39step5:n=p/5+l:k$=s$(n):z 
=9:gosub510:char,p+2,9,"[CTRL-2]"+ 
chr$(48+n)+"[CTRL-1]":next 
forp=0to24step5:n=p/5+9:k$=s$(n):z 
=13:gosub510 

ifn>9thenn=n-9:char,p+2,13,"[CTRL- 

2] l"+chr$(47+n)+"[CTRL-1]":elsecha 
r,p+2,13,"[CTRL-2]"+chr$(48+n)+"[C 
TRL 1] " 

nextp:gosubl710 
rem 

k$=b$(27):b$=k$:p=17:z=l:gosub510 
ifkl$="j"orkr$="a"orkr$="2"thenl39 
0:else700 

rem kaart printen 
l=p+3072+z*40:pokel,85:pokel+l,67: 
pokel+3,67:pokel+4,73:ifp=17thenpo 
kel+2,67 

ifpeek(1+160)=85orl>3911thenm=3:el 
sem=5 

fora=l+40tol+m*40step40:pokea, 66:p 
okea+4,66:nexta:ifm=3then550 
pokel+240,74:pokel+241,67:pokel+24 
2,67:pokel+243,67:pokel+244, 75 
kl$=left$(k$,1):ifkl$="S"orkl$="Z" 
thenkt=3:elsekt=l 

forl=ltom:char,p+1,z+1,"[3xSPACE]" 

: next 

ifkl$="j"thenchar,p+2,z+1,"j[CRSR 

-DOWN][CRSR-LEFT]o[CRSR-DOWN][CRSR 

-LEFT]k[CRSR-DOWN][CRSR-LEFT]e[CRS 

R-DOWN][CRSR-LEFT]r":goto680 

kr$=right$(k$,2) 

ifkr$="10"then650 

ifkr$="11"thenkr$="b":goto650 

ifkr$="12"thenkr$="v":goto650 

ifkr$="13"thenkr$="h":goto650 

kr$=right$(kr$,1) 

ifkr$="1"thenkr$="a" 

char,p+1,z+1,kr$:colorl,kt,3:char, 

p+3,z+1,kl$ 

ifm=3then680 

char,p+1,z+5,kl$:colorl, 1:ifkr$<>" 
10"thenchar,p+2,z+5,"[SPACE]"+kr$: 
elsechar,p+2,z+5,kr$ 
return 

rem speler aan de beurt 

















700 


print-out print-out prmt-oui 


soundl,300,5:char,26,4,"[CTRL-9]jo 
uw[SPACE]beurt [CTRL-0] ":char, 16,2, 
chr$(27)+"p":char,16,3,chr$(27)+"p 

I! 

710 print"[HOME][9xCRSR-RIGHT]"chr$(27 
) "b" 

720 printchr$(27)"j[6xCRSR-RIGHT]"chr$ 
(27)"q" 

730 inpufkaart" ; k: ifk<0ork>32then720 
740 rem kopen 
750 ifk<>0then800 

7 60 kk=kk+l:ifkk=2thenchar, 0,2, "je[SPA 

CE]kunt[SPACE]dus[SPACE]niet.":kk= 
0:fora=lto800:next:gotol230 
770 b=b+l:ifb>108then2410 
780 gosubl810 

790 char,0,2,"je[SPACE]hebt[SPACE]geko 

cht.":fora=lto800:next:ws=ws+l:got 
o700 

800 ss$=s$(k) 

810 ifleft$ (ss$, 1)0" j"then870 
820 goto880 

830 char,0,2,"o[SPACE]jee![SPACE]ik[SP 
ACE]moet[SPACE]5":char,0,3,"kaarte 
n[SPACE]pakken." 

840 fora=600to0step-20:soundl,a,1:next 
850 forc=lto5:b=b+l:wc=wc+l:gosubl770: 

next:fora=lto400:next:char, 16, 2, ch 
r$(27)+"p" 

860 char, 16,3, chr$(27)+"p":gosubl530 :g 
osubl710:goto700 

870 ifleft$(ss$,1)<>left$(b$,1)andrigh 
t$(s$(k),2)<>right$(b$,2)then720 
880 ws=ws-l:k$=ss$:p=17:z=l:gosub510:s 
$(k)="":b$=ss$: kk=0 
890 ifk<9thenp=k*5-4:z=8 
900 ifk>8andk<l71henp=(k-8)*5-4:z=12 
910 ifk>16andk<25thenp=(k-16)*5-4:z=16 
920 ifk>24thenp=(k-24)*5-4:z=20 
930 pp=3071+p+(z+5)*40 

940 ifpeek(pp)=85orpp>3951thenl=4:else 
1=7 

950 fora=ltol:char,p-1,z+a,"[4xSPACE]" 

:g=40*(z+a)+p+3075:pokeg,32:nexta 
960 ifk-8<lthenl040 
970 i£s$(k-8)=""thenl040 
980 ifk<17thenz=9:p=(k-9)*5 
990 ifk>16andk<25thenz=13:p=(k-17)*5 
1000 ifk>24thenz=17:p=(k-25)*5 
1010 g$=str$(k-8) 

1020 g$="[CTRL-2]"+right$(g$,len(g$)-1) 

+"[CTRL-1]" 

1030 k$=s$(k-8):gosub510:char,p+2,z,g$ 

1040 ifws=0thenl930 
1050 ifleft$(ss$,1)="j"then830 
1060 ifright$(ss$,2)="11"thenll40 
1070 ifright$ (ss$, 2)0" [SPACE] 2"thenlll 
0 

1080 char,0,2,"ik[SPACE]moet[SPACE]2[SP 
ACE]kaarten":char,0,3,"erbij[SPACE 
]pakken.":fora=600to0step-20 
1090 soundl,a,1:next 

1100 forc=lto2:b=b+l:wc=wc+l:gosubl770: 

next:gosubl710:fora=lto800:next:go 
to700 

1110 ifright$(ss$,1)="1"thenchar, 0, 2, "i 
k[SPACE]moet[SPACE]een[SPACE]beurt 
":char,0,3,"overslaan.":elsel230 
1120 fora=400to0step-20:soundl, a, 1:next 
1130 fora=lto800:next:goto700 
1140 char,0,2,"wat[SPACE]maak[SPACE]je[ 


SPACE]ervan" 

1150 fora=lto2:char,1,a+2,str$(a)+"[SPA 
CE][CTRL-3]"+z$(a)+"[CTRL-1]":next 
1160 fora=3to4:char,1,a+2,str$(a)+"[SPA 
CE]"+z$(a):next 

1170 getkeya$:kl=val(a$):ifkl<lorkl>4th 
enll70 

1180 ifkl<3thencolorl,3,3 
1190 soundl,800,5:char,12,4,z$(kl):colo 
rl,1:fora=lto800:next 
1200 fora=2to6:char,16,a,chr$(27)+"p":n 
ext 

1210 b$=z$(kl)+"[SPACE]"+right$(ss$, 2) 

1220 rem computer aan de beurt 
1230 kk=0 :fora=0to3:char, 16, a, chr$(27) + 
"p":next 

1240 soundl,900,5:char,26,4,"mijn[SPACE 
]beurt" 

1250 fora=lto32:ifleft$(c$(a),1)="j"the 
ne=a 
1260 next 

1270 ifws<5ande<>0thenk=e:e=0:gotol380 
1280 k=0:fora=lto32:ifleft$(c$(a) , 1)=le 

ft$(b$,1)thenk=a 
1290 next:ifk<>0thenl380 
1300 k=0:fora=lto32:ifright$(c$(a) , 2) =r 

ight$(b$,2)thenk=a 
1310 next:ifk<>0thenl380 
1320 ifwc<5ande<>0thenk=e:e=0:gotol380 
1330 char,0,2,"ik[SPACE]koop.":fora=lto 
800:next:b=b+l:gosubl770 
1340 wc=wc+l:gosubl710 

1350 ifleft$ (b$ (b),l)=left$(b$,l)orrigh 
t$(b$(b),2)=right$(b$,2)thenk=a:go 
tol380 

1360 char,0,2,"ik[SPACE]kan[SPACE]niet. 

":fora=lto800:next:goto700 
1370 rem weggooien kaart 
1380 wc=wc—1:k$=c$(k):b$=k$:p=17:z=l:go 
sub510:c$(k)="":gosubl710 
1390 ifleft$(k$,1)<>"j"thenl440 
1400 char,0,2,"ha[SPACE]ha,[SPACE]je[SP 
ACE]moet[SPACE]5":char,0,3,"kaarte 
n[SPACE]pakken!":fora=600tol000ste 
P 20 

1410 soundl,a,1:next:forqq=lto5:b=b+l:w 
s=ws+l:gosubl810:nextqq 
1420 fora=lto800:next:char,16,2, chr$(27 
) +"P" 

1430 char,16,3,chr$(27)+"p":gotoll40 
1440 ifright$(k$,2)="ll"thengosubl530:g 
oto700 

1450 ifright$(k$,2)O"[SPACE]2"thenl490 
1460 char,0,2,"je[SPACE]moet[SPACE]2[SP 
ACE]kaarten":char,0,3,"erbij[SPACE 
]pakken!" 

1470 fora=600tol000step20:soundl,a,1:ne 
xt 

1480 forqq=lto2:s=s+l:b=b+l:ws=ws+l:gos 
ubl810:nextqq:fora=lto800:next:got 
ol230 

1490 ifright$(k$,1)="1"thenchar, 0,2, "je 
[SPACE]moet[SPACE]een[SPACE]beurt" 
:char,0,3,"overslaan!":else700 
1500 fora=600tol000step20:soundl,a,1:ne 
xt 

1510 fora=lto800:next:gotol230 
1520 rem keuze kaart soort 
1530 cc$=b$: ha=0 : ru=0 : kl=0 : sc=0 :fora=lt 
o32:l$=left$(c$(a),1) 

1540 ifl$="S"thenha=ha+l 


















1550 ifl$="Z"thenru=ru+l 
1560 ifl$="X"thenkl=kl+l 
1570 ifl$="A"thensc=sc+l 
1580 next:q=ha 
1590 ifq<ruthenq=ru 
ij 1600 ifq<klthenq=kl 
T, 1610 ifq<scthenq=sc 

1620 ifq=hathenb$="[CTRL-3]S[CTRL-1]" 
1630 ifq=ruthenb$="[CTRL-3]Z[CTRL-1]" 
ff 1640 ifq=klthenb$="[CTRL-1]X" 

1650 ifq=scthenb$="[CTRL-1]A" 

'■ 1660 char,0,2,"ik[SPACE]maak[SPACE]er[S 
PACE]"+b$ 

1670 char,13,2,"van.": fora=ltol000 :next 
% 1680 b$=mid$(b$,2,1)+"[SPACE]"+right$(c 
c$,2) 

II 1690 return 
1700 rem 

1710 ifb>108then2410 

1720 t$=" [SPACE]kaarten[SPACE]":ifwc=lt 

hent$="[SPACE]kaart[2xSPACE]" 

1730 char,0,7,"comp."+str$(wc)+t$ 

|| 1740 ifwc=Othenchar,12,8,"[CTRL-2]ik[SP 

ACE]heb[SPACE]gewonnen[CTRL-1]":go 
to2300 
1750 return 

1760 rem lege plaatsen opvullen comp 
1770 a=0:ifb>108then2410 

1780 a=a+l:ifa<33andc$(a)O""thenl780 
1790 c$(a)=b$(b):return 

1800 rem lege plaatsen opvullen speler 

1810 a=0:ifb>108then2410 

1820 a=a+l:ifa<33ands$(a)O""thenl820 

1830 s$(a)=b$(b):s=a 

1840 ifs<9thenp=(s-1)*5:z=9 

1850 ifs>8ands<17thenp=(s-9)*5:z=13 

1860 ifs>16thenp=(s-17)*5:z=17 

1870 ifs>24thenp=(s-25)*5:z=21 

1880 g$=str$(s) 

1890 g$="[CTRL-2]"+right$(g$,len(g$)-1) 

+"[CTRL-1]" 

1900 k$=s$(s):gosub510:char,p+2,z,g$ 

1910 return 
1920 rem 

| 1930 char,6,16,"[CTRL-2]proficiat,[SPAC 
E]je[SPACE]hebt[SPACE]gewonnen![CT 
RL 1]":goto2300 
1 1940 rem instructies 
1950 scnclr:printchr$(14) 

I 1960 char,13,0,"[CTRL-2][COM-A][12xSHIF 
T *][COM-S]" 

| 1970 char,13,1,"[SHIFT—][CTRL-1]INSTRO 
CTIES:[CTRL-2][SHIFT—]" 

I 1980 char,13,2,"[COM-Z][12xSHIFT-*][COM 
X][CTRL-1]" 

f 1990 char,1,0,chr$(27)+"t":print 
I 2000 print"[4xCRSR-DOWN]Het[SPACE]is[SP 
ACE]de[SPACE]bedoeling[SPACE]om[SP 
ACE]al[SPACE]je[SPACE]kaarten[3xSP 
ACE]kwijt[SPACE]te[SPACE]raken.":p 
1 rint 

I 2010 print"Dit[SPACE]kan[SPACE]op[SPACE 
]de[SPACE]volgende[SPACE]wijze:":p 
rint 

j 2020 prinf’Als[SPACE]er[SPACE]b.v.[SPAC 
E]een[SPACE]harten[SPACE]3[SPACE]1 
igt, [SPACE] kun" .-print" je [SPACE] daa 
r[SPACE]een[SPACE]andere[SPACE]har 
ten[SPACE] 

2030 print"opgooien[SPACE]of[2xSPACE]ee 
n[SPACE]andere[SPACE]drie[SPACE]do 


or[SPACE]het[SPACE]nummer[SPACE]va 
n" 

2040 print"die[SPACE]kaart[SPACE]in[SPA 
CE]te[SPACE]tikken[SPACE]en[SPACE] 
dan[SPACE]op":print"RETURN[SPACE]t 
e[SPACE]drukken.":print 
2050 print"Als[SPACE]je[SPACE]niet[SPAC 
E]kunt, [SPACE]kun[SPACE]j e[SPACE]e 
en[SPACE]kaart[5xSPACE]kopen[SPACE 
]door[SPACE]een[SPACE]0[SPACE]in[S 
PACE]te[SPACE]tikken.":print 
2060 print"Wanneer[SPACE]je[SPACE]dan[S 
PACE]nog[SPACE]niet[SPACE]kunt,[SP 
ACE]tik[SPACE]je[3xSPACE]nog[SPACE 
]een[SPACE]0[SPACE]in;[SPACE]de[SP 
ACE]computer[SPACE]is[SPACE]dan." 
2070 print:char,12,22,"DRUK[SPACE]OP[SH 
IFT SPACE]EEN[SPACE]TOETS" 

2080 restore2460:do:readx,y:f=(111840.4 
5/ (1024-x))/2:aa=1024-(111840.45/f 
) 

2090 soundl,x,y:sound2,aa,y-3:forv=8to5 
step-1:fora=5toy:nexta:volv:nextv 
2100 getg$:ifg$<>""then2120 
2110 loopuntilx=0 :goto2080 
2120 scnclr:char,1,0,chr$(27)+"t" 

2130 print"Als[SPACE]je[SPACE]een[SPACE 
]aas[SPACE]opgooit,[SPACE]dan[SPAC 
E]moet[SPACE]de[4xSPACE]computer[S 
PACE]een[SPACE]beurt[SPACE]oversla 
an[SPACE]en[SPACE]"; 

2140 print"dan[4xSPACE]ben[SPACE]jij[SP 
ACE]weer.":print:print 
2150 print"Als[SPACE]je[SPACE]een[SPACE 
]boer[SPACE]opgooit[SPACE]kun[SPAC 
E]je[SPACE]ervan[3xSPACE]maken[SPA 
CE]wat[SPACE]je[SPACE]wilt,[SPACE] 
harten,[SPACE]ruiten," 

2160 print"klaveren[SPACE]of[SPACE]scho 
ppen. " 

2170 print"Dit[SPACE]doe[SPACE]je[SPACE 
]door[SPACE]het[SPACE]cij fer[SPACE 
]voor[SPACE]de[5xSPACE]soort[SPACE 
]van[SPACE]j e[SPACE]keuze[SPACE]in 
[SPACE]te[SPACE]tikken." 

2180 print"Om[SPACE]een[SPACE]boer[SPAC 
E]op[SPACE]te[SPACE]kunnen[SPACE]g 
ooien,[SPACE]moet[2xSPACE]deze[SPA 
CE]wel[SPACE]van[SPACE]de[SPACE]ze 
lfde[SPACE]soort[SPACE]zijn[SPACE] 

2190 print"als[2xSPACE]de[SPACE]kaart[S 
PACE]die[SPACE]er[SPACE]al[SPACE]1 
ag.":print:print 

2200 print"Wanneer[SPACE]j e[SPACE]een[S 
PACE]joker[SPACE]opgooit,[SPACE]mo 
et[SPACE]de[2xSPACE]computer[SPACE 
]vijf[SPACE]kaarten[SPACE]pakken, [ 
SPACE]er[SPACE]van" 

2210 print"maken[SPACE]wat[SPACE]hij[SP 
ACE]wil[SPACE]en[SPACE]dan[SPACE]m 
ag[SPACE]jij[SPACE]weer.":print"Ee 
n[SPACE]joker[SPACE]kun[SPACE]je[S 
PACE]altijd[SPACE]opgooien." 

2220 print"[2xCRSR-DOWN]Wanneer[SPACE]j 
e[SPACE]een[SPACE]twee[SPACE]opgoo 
it,[SPACE]moet[SPACE]de[3xSPACE]co 
mputer[SPACE]twee[SPACE]kaarten[SP 
ACE[pakken,[SPACE] 

2230 print"daarna[3xSPACE]ben[SPACE]je[ 
SPACE]zelf[SPACE]weer[SPACE]aan[SP 
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ACE]de[SPACE]beurt." 

do:readx,y:f=(111840.45/(1024-x))/ 

2:aa=1024-(111840.45/f) 

soundl,x,y:sound2,aa,y-3:forv=8to5 

step-1:fora=5toy:nexta:volv:nextv 

getg$:ifg$=chr$(32)then2280 

loopuntilx=0 :restore2460:goto2240 

printchr$(27)+"n"chr$(142):vol8:go 

to410 

rem eind 
a=0 

a=a+20:ifa>520then2330 
forb=700tol020stepa:soundl,b,2:nex 
t:goto2310 
a=0 

a=a+l:ifa=8thena=0 

colorl,8,a:char,10,18,"nog[SPACE]e 
en[SPACE]keer[SPACE](j/n)[SPACE]?" 
getg$ : ifg$<>" j "andg$O"n"then2340 
soundl,800,5:ifg$="j"thenrun:elsec 
har, 7, 14, "[CTRL-8]weet[SPACE]je[SP 
ACE]het[SPACE]zeker[SPACE](j/n)[SP 
ACE]?" 

getkeyg$:ifg$<>"j"andg$<>"n"then23 
80 

soundl,800,5 : ifg$="j"thensys62116 


J00 char,0,14,chr$(27)+"q":goto2360 
110 fora=0to7:colorO,2,a:forb=lto20:ne 
xtb,a:fora=7to0step-l:colorO, 2, a 
120 forb=lto20:nextb,a:scnclr:char, 7, 1 
2,"[CTRL-2]sorry,[SPACE]de[SPACE]k 
aarten[SPACE]zijn[SPACE]op." 

330 char,10,14,"we[SPACE]beginnen[SPAC 
E]opnieuw." 

140 fora=0to3000:next:run 
150 resumenext 

160 data810,30,834,7.5,864,7.5,854,7.5 
,834,7.5,881,15,881,15,881,7.5,897 
,7.5,854,7.5 

170 data864,7.5,834,15,834,15,834,7.5, 
8 64,7.5, 854,7.5, 834,7.5,810,7.5,91 

7.7.5.911.7.5 

180 data897,7.5,881,7.5,864,7.5, 854,7 . 
5,834,7.5,810,30,834,7.5,864,7.5,8 

54.7.5.834.7.5 

190 data881,15,881,15,881,7.5,897,7.5, 
854,7.5,864,7.5,834,15,834,15, 864, 

7.5.854.7.5 

500 data834,7.5,810,7.5, 881,7.5, 834,7 . 
5,864,7.5,810,15,897,7.5,0,0 

EINDE LISTING pesten16 


REGEL 

IQ 

211 

REGEL 

520 

225 

REGEL 

1020 

154 

REGEL 

1520 

29 

REGEL 

2020 

33 

REGEL 

20 

9 

REGEL 

530 

57 

REGEL 

1030 

3 

REGEL 

1530 

66 

REGEL 

2030 

75 

REGEL 

40 

75 

REGEL 

540 

155 

REGEL 

1040 

139 

REGEL 

1540 

10 

REGEL 

2040 

194 

REGEL 

50 

253 

REGEL 

550 

146 

REGEL 

1050 

77 

REGEL 

1550 

77 

REGEL 

2050 

226 

REGEL 

60 

58 

REGEL 

560 

186 

REGEL 

1060 

146 

REGEL 

1560 

43 

REGEL 

2060 

27 

REGEL 

70 

145 

REGEL 

570 

208 

REGEL 

1070 

17 

REGEL 

1570 

18 

REGEL 

2070 

30 

REGEL 

80 

109 

REGEL 

580 

90 

REGEL 

1080 

114 

REGEL 

1580 

72 

REGEL 

2080 

245 

REGEL 

90 

174 

REGEL 

590 

229 

REGEL 

1090 

145 

REGEL 

1590 

135 

REGEL 

2090 

30 

REGEL 

100 

233 

REGEL 

600 

162 

REGEL 

1100 

214 

REGEL 

1600 

103 

REGEL 

2100 

80 

REGEL 

110 

26 

REGEL 

610 

183 

REGEL 

1110 

186 

REGEL 

1610 

101 

REGEL 

2110 

175 

REGEL 

120 

128 

REGEL 

620 

170 

REGEL 

1120 

93 

REGEL 

1620 

153 

REGEL 

2120 

170 

REGEL 

130 

97 

REGEL 

630 

171 

REGEL 

1130 

247 

REGEL 

1630 

190 

REGEL 

2130 

153 

REGEL 

140 

207 

REGEL 

640 

18 

REGEL 

1140 

27 

REGEL 

1640 

144 

REGEL 

2140 

105 

REGEL 

150 

128 

REGEL 

650 

188 

REGEL 

1150 

187 

REGEL 

1650 

120 

REGEL 

2150 

42 

REGEL 

160 

145 

REGEL 

660 

2 

REGEL 

1160 

37 

REGEL 

1660 

95 

REGEL 

2160 

88 

REGEL 

170 

119 

REGEL 

670 

121 

REGEL 

1170 

217 

REGEL 

1670 

81 

REGEL 

2170 

239 

REGEL 

180 

127 

REGEL 

680 

142 

REGEL 

1180 

133 

REGEL 

1680 

14 

REGEL 

2180 

103 

REGEL 

190 

172 

REGEL 

690 

53 

REGEL 

1190 

81 

REGEL 

1690 

142 

REGEL 

2190 

87 

REGEL 

200 

172 

REGEL 

700 

1 

REGEL 

1200 

65 

REGEL 

1700 

143 

REGEL 

2200 

96 

REGEL 

210 

189 

REGEL 

710 

252 

REGEL 

1210 

88 

REGEL 

1710 

133 

REGEL 

2210 

34 

REGEL 

220 

93 

REGEL 

720 

108 

REGEL 

1220 

217 

REGEL 

1720 

62 

REGEL 

2220 

1 

REGEL 

230 

250 

REGEL 

730 

6 

REGEL 

1230 

238 

REGEL 

1730 

231 

REGEL 

2230 

85 

REGEL 

240 

90 

REGEL 

740 

12 

REGEL 

1240 

95 

REGEL 

1740 

210 

REGEL 

2240 

99 

REGEL 

250 

48 

REGEL 

750 

169 

REGEL 

1250 

1 

REGEL 

1750 

142 

REGEL 

2250 

30 

REGEL 

260 

222 

REGEL 

760 

214 

REGEL 

1260 

130 

REGEL 

1760 

168 

REGEL 

2260 

222 

REGEL 

270 

99 

REGEL 

770 

208 

REGEL 

1270 

126 

REGEL 

1770 

226 

REGEL 

2270 

63 

REGEL 

280 

125 

REGEL 

780 

87 

REGEL 

1280 

188 

REGEL 

1780 

245 

REGEL 

2280 

170 

REGEL 

290 

186 

REGEL 

790 

59 

REGEL 

1290 

153 

REGEL 

1790 

108 

REGEL 

2290 

175 

REGEL 

300 

250 

REGEL 

800 

143 

REGEL 

1300 

192 

REGEL 

1800 

68 

REGEL 

2300 

35 

REGEL 

310 

195 

REGEL 

810 

3 

REGEL 

1310 

153 

REGEL 

1810 

226 

REGEL 

2310 

253 

REGEL 

320 

70 

REGEL 

820 

41 

REGEL 

1320 

110 

REGEL 

1820 

0 

REGEL 

2320 

179 

REGEL 

330 

157 

REGEL 

830 

127 

REGEL 

1330 

189 

REGEL 

1830 

52 

REGEL 

2330 

35 

REGEL 

340 

247 

REGEL 

840 

95 

REGEL 

1340 

81 

REGEL 

1840 

83 

REGEL 

2340 

201 

REGEL 

350 

138 

REGEL 

850 

225 

REGEL 

1350 

173 

REGEL 

1850 

160 

REGEL 

2350 

207 

REGEL 

360 

201 

REGEL 

860 

55 

REGEL 

1360 

7 

REGEL 

1860 

229 

REGEL 

2360 

174 

REGEL 

370 

35 

REGEL 

870 

199 

REGEL 

1370 

166 

REGEL 

1870 

222 

REGEL 

2370 

63 

REGEL 

380 

126 

REGEL 

880 

144 

REGEL 

1380 

28 

REGEL 

1880 

133 

REGEL 

2380 

171 

REGEL 

390 

37 

REGEL 

890 

244 

REGEL 

1390 

210 

REGEL 

1890 

154 

REGEL 

2390 

229 

REGEL 

400 

128 

REGEL 

900 

101 

REGEL 

1400 

27 

REGEL 

1900 

40 

REGEL 

2400 

71 

REGEL 

410 

232 

REGEL 

910 

198 

REGEL 

1410 

255 

REGEL 

1910 

142 

REGEL 

2410 

70 

REGEL 

420 

142 

REGEL 

920 

171 

REGEL 

1420 

147 

REGEL 

1920 

143 

REGEL 

2420 

28 

REGEL 

430 

225 

REGEL 

930 

91 

REGEL 

1430 

70 

REGEL 

1930 

99 

REGEL 

2430 

165 

REGEL 

440 

98 

REGEL 

940 

77 

REGEL 

1440 

33 

REGEL 

1940 

236 

REGEL 

2440 

139 

REGEL 

450 

215 

REGEL 

950 

218 

REGEL 

1450 

193 

REGEL 

1950 

56 

REGEL 

2450 

88 

REGEL 

460 

98 

REGEL 

960 

9 

REGEL 

1460 

146 

REGEL 

1960 

159 

REGEL 

2460 

114 

REGEL 

470 

143 

REGEL 

970 

227 

REGEL 

1470 

69 

REGEL 

1970 

163 

REGEL 

2470 

153 

REGEL 

480 

122 

REGEL 

980 

122 

REGEL 

1480 

254 

REGEL 

1980 

56 

REGEL 

2480 

217 

REGEL 

490 

225 

REGEL 

990 

229 

REGEL 

1490 

30 

REGEL 

1990 

91 

REGEL 

2490 

74 

REGEL 

500 

34 

REGEL 

1000 

211 

REGEL 

1500 

69 

REGEL 

2000 

130 

REGEL 

2 500 

210 

REGEL 

510 

113 

REGEL 

1010 

96 

REGEL 

1510 

38 

REGEL 

2010 

42 
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De listings voor de Amiga programma’s moeten wor¬ 
den ingetypt na het opstarten van de Amigabasic. 
Deze wordt meegeleverd met uw computer op de 
"extra" schijf. Let erop hele regels invoeren en alleen 
aan het eind van elke regel een return geven. Dit 
hebben we aangegeven met [return], De lege regels 
tussen de diverse blokken staan er alleen voor de 
duidelijkheid en hoeven niet te worden overgenomen 
(dit mag wel). 

[return] mag dus niet worden overgetypt maar moet 
uitgevoerd worden door op de returntoets te drukken. 


Bioritme 


I Na het opstarten van het programma wordt u ge¬ 
vraagd om uw naam, geboortedatum, datum voor de 
berekenig in te voeren. Deze data moet worden inge¬ 
voerd gescheiden door een komma. Bijvoorbeeld 29 
maart 1988 zou worden 29,4,88. Hierna wordt uw fy¬ 
sieke, gevoels en intellectuele curve berekend. Hier¬ 
na kunt u kiezen of u ook de volgende maand of 
mischien wel een maand terug wilt gaan bekijken. 
1 Met dit programma kunt u uitrekenen wat de beste 
dag is om bepaalde zaken te gaan uitvoeren. M.J. 
J Kemps is de maker van dit programma. 

I 

I REM » Bioritme Amiga « [return] 

I REM - Door M.J. Kemps uit Schiedam - 
1 [return] 

I 

J CLEAR:XF FRE(x)<25000 THEN CLEAR , 
j 125000& [return] 

I 

initialisatie: [return] 
i DIM f(32),g(32),v(32),a(32),tm(12),m$ 

I (12) [return] 

| pi=3.14159265# [return] 
i FOR i=l TO 12:READ tm(i):NEXT [return] 

| DATA 31,28,31,30,31,30,31,31,30,31,30, 
j 31 [return] 

j FOR r=l TO 12 : READ m$(r):NEXT [return] 

| DATA januari,februari,maart,april,mei, 
juni [return] 

\ DATA juli,augustus,september,oktober, 
j november,december [return] 

| startscherm: [return] 

; PALETTE 0,0,0,0 [return] 

| PALETTE 1,1,1,0 [return] 
j CLS: LOCATE 2,30:PRINT "»»> BIORITME 
j ««<" [return] 

LOCATE 5,5:LINE INPUT "Wat is Uw 
naam : ";n$ [return] 

LOCATE 10,5:INPUT "Geboorte datum (d, 
m ' j) " gd, gm, g j [return] 

IF gjClOO THEN gj=gj+1900 [return] 

LOCATE 15,5:INPUT "Bioritme voor (m, j) 

";m,j [return] 

IF j<1800 THEN j=j+1900 [return] 

IF m>12 OR gm>12 OR m<l OR gm<l 

THEN CLS:PRINT "foutieve datum-invoer": 

GOTO alarm [return] 

IF j>gj THEN berekening [return] 

IF m>=gm THEN berekening [return] 

CLS .-LOCATE 2,1:PRINT "Toen was U nog 
niet geboren !" [return] 


alarm: [return] 

BEEP:FOR w=l TO 5000:NEXT w [return] 

GOTO startscherm [return] 

berekening: [return] 
tot=0 [return] 

IF gj=j AND gm=m THEN tot=0- (gd-1):GOTO 
berekening2 [return] 

FOR telj=gj TO j [return] 

IF telj=gj OR telj=j THEN subl [return] 
tot=tot+365 [return] 

IF telj/4=INT(telj/4) THEN tot=tot+l 
[return] 

GOTO sub3 [return] 

subl: [return] 

FOR telm=l TO 12 [return] 
ma=tm(telm):IF telm=2 AND telj/4=INT 
(telj/4) THEN ma=ma+l [return] 

IF telj=gj AND telm<gm THEN sub4 [return] 
IF telj=j AND telm>=m THEN sub3 [return] 
IF telj=gj AND telm=gm THEN sub2 [return] 
tot=tot+ma:GOTO sub4 [return] 

sub2: [return] 

tot=tot+(ma-(gd-1)) [return] 

sub4: [return] 

NEXT telm [return] 

sub3: [return] 

NEXT telj [return] 

berekening2: [return] 

mm=tm(m):IF m=2 AND j/4=INT(j/4) THEN 
mm=mm+l [return] 

FOR i=tot TO tot+mm [return] 
ritme=i-(tot-1) [return] 
f(ritme)=SIN(2*pi/23*i) [return] 
g(ritme)=SIN(2*pi/28*i) [return] 
v(ritme)=SIN(2*pi/33*i) [return] 
a(ritme)=(f(ritme)+g(ritme)+v(ritme)) 

/3 [return] 

NEXT [return] 

tekenen: [return] 

SCREEN 2,640,216,3,2 [return] 

WINDOW 2,"graphic",,0,2 [return] 

CLS [return] 

PALETTE 0,0,0,0 [return] 

PALETTE 1,1,1,0 [return] 

PALETTE 2,1,0,0 [return] 

PALETTE 3,0,0,1 [return] 

PALETTE 4,1,1,1 [return] 

PALETTE 5,1,0,1 [return] 

PALETTE 6,0,1,0 [return] 

COLOR 4,0 [return] 

PRINT "Bioritme voor : ";n$ [return] 
LOCATE 1,40:PRINT "Geboren : ";gd;m$ 
(gm);gj [return] 


dagl$=" 

1 

3 5 

7 

9 11 13 15 

17 

19 

21 

23 25 

27 

29 31" [return] 

dag2$=" 


2 4 

6 

8 10 12 14 16 

18 

20 

22 

24 26 

28 

30 " [return] 

ma=tm(m) 

: IF 

m=2 AND 

j/4 

=INT(j/4) THEN 


ma=ma+l [return] 

dagl$=LEFT$(dagl$,ma*2+l) [return] 
dag2$=LEFT$(dag2$,ma*2+l) [return] 
LOCATE 20,5:PRINT dagl$ [return] 
LOCATE 21,5:PRINT dag2$ [return] 
LOCATE 2j,5:PRINT m$(m);j [return] 
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LINE (40,20)-(40,150),4 [return] 

LINE (41,20)-(41,150),4 [return] 
lad=ma*16+40 [return] 

LINE (40, 85)-(lad,85),4 [return] 

LINE (40,86)-(lad,86),4 [return] 

FOR dag=l TO ma [return] 

LINE (40+dag*16,20)-(40+dag*16,150),4 
[return] 

NEXT dag [return] 

LOCATE 3,3:PRINT "+1" [return] 

LOCATE 11,4:PRINT "0" [return] 

LOCATE 19,3:PRINT "-1" [return] 

COLOR 2,0 [return] 

LOCATE 4,70:PRINT "Fysiek" [return] 

COLOR 3,0 [return] 

LOCATE 9,70:PRINT "Gevoel" [return] 

COLOR 5,0 [return] 

LOCATE 14,70:PRINT "Intellect" [return] 
COLOR 1,0 [return] 

LOCATE 19,70:PRINT "Gemiddeld" [return] 

LINE (48,-f(l)*65+85)-STEP (0,0),2 [return] 
LINE (48,-g(l)*65+85)-STEP (0,0),3 [return] 
LINE (48,-v(l)*65+85)-STEP (0,0),5 [return] 
LINE (48,-a(l)*65+85)-STEP (0,0),1 [return] 
FOR dag=2 TO ma [return] 

LINE (32+(dag-1)*16,-f(dag-1)*65+85)-(32+ 
dag*16,-f(dag)*65+85),2 [return] 

LINE (32+(dag-1)*16,-g(dag-1)*65+85)-(32+ 
dag*16,-g(dag)*65+85) , 3 [return] 

LINE (32+(dag-1)*16,-v(dag-l)*65+85)-(32+ 
dag*16,-v(dag)*65+85),5 [return] 

LINE (32+(dag-1)*16,-a(dag-1)*65+85)-(32+ 
dag*16,-a(dag)*65+85),1 [return] 

NEXT dag [return] 

COLOR 6,0 [return] 

LOCATE 25,1:PRINT "[+] maand verder 

[-] maand terug [enter] nieuwe bioritme 

[*] end"; [return] 

select: [return] 
toets$=INKEY$ [return] 

IF toets$="+" THEN m=m+l:GOTO vervolg 
[return] 

IF toets$="-" THEN m=m-1:GOTO vervolg 
[return] 

IF toets$=CHR$(13) THEN RUN [return] 

IF toets$<>"*"THEN select [return] 

WINDOW 1 [return] 

COLOR 1,0 [return] 

CLS [return] 

END [return] 

vervolg: [return] 

IF m=13 THEN m=l:j=j+l [return] 

IF m=0 THEN m=12:j=j-l [return] 

GOTO berekening [return] 


bruiken om de golfvormen in te laden en af te spelen. 
Het gehele programma is menu gestuurd, waardoor 
het eenvoudig te gebruiken c.q uit te breiden is. 

REM » Amiga Wave Creator « [return] 

REM [return] 

REM door:Maarten Hoeben [return] 

REM ir.m.schefferlaan 37 [return] 

REM 7556CP Hengelo (o) [return] 

GOTO main: [return] 

setup: [return] 

GOSUB screeninit [return] 

GOSUB varinit [return] 

menuinit: [return] 

MENU OFF [return] 

MENU 1,0,1,"project" [return] 

GOSUB projectmenu [return] 

GOSUB wavemenu [return] 

MENU 3,0,1,"golfvorm " [return] 

GOSUB waveformmenu: [return] 

MENU 4,0,1,"afspelen " [return] 

GOSUB playwavemenu: [return] 

MENU ON [return] 

RETURN [return] 

projectmenu: [return] 

MENU 1,1,1,"veld schoon 
MENU 1,2,1,"herteken veld 
MENU 1,3,1,"golven schoon 
MENU 1,4,1,"open 
MENU 1,5,1,"wegschrijven 
MENU 1,6,1,"stoppen 
RETURN [return] 

wavemenu: [return] 

MENU 2,0,1,"kies golf " [return] 

FOR t = 1 TO 3 : swave(t) = 1:NEXT [return] 
swave(swave)=2 [return] 

MENU 2,1,swave(1)," golf 1 " [return] 

MENU 2,2,swave(2)," golf 2 " [return] 

MENU 2,3,swave(3)," golf 3 " [return] 

RETURN [return] 

waveformmenu: [return] 

MENU 3,1,1,"sinus " [return] 

MENU 3,2,1,"zaagtand " [return] 

MENU 3,3,1,"driehoek golf " [return] 

MENU 3,4,1,"puls golf " [return] 

MENU 3,5,1,"willekeurige golf " [return] 

MENU 3,6,1,"geen golf " [return] 

MENU 3,7,1,"teken zelf een golf" [return] 

MENU 3,8,1,"" [return] 

MENU 3,9,1,"gemiddelde golf " [return] 
RETURN [return] 

playwavemenu: [ return] 


" [return] 

" [return] 

" [return] 
" [return] 

" [return] 

" [return] 


AmigaWaveCreator 


Het volgende programma, van Maarten Hoeben 
maakt het mogelijk om zelf een golfvorm samen te 
stellen en deze in je eigen programma’s te verwer¬ 
ken. in het volgende programma zitten een aantal 
standaard formules ingebouwd, zoals een zaagtand, 
sinus, puls golf e.d. Deze golfvormen zijn ook te 
kombineren. Achter in het programma staat een su- 
broutine die men in de eigen programma’s kan ge¬ 


MENU 4,1,1,"speel toon " [return] 

RETURN [return] 

screeninit: [return] 

SCREEN 2,640,200,3,2 [return] 

WINDOW 2,"Amiga Wave Creator",,7,2 [return] 
paletteinit: [return] 

col!=.4:FOR pal% = 4 TO 7 :col!=col!+.1 
[return] 

PALETTE pal%,col!,col!, col!:NEXT:RETURN 
[return] 

fieldinit: [return] 
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COLOR 1,0 [return] 

AREA (0,0):AREA STEP (276,0) [return] 

AREA STEP (0,138):AREA STEP (-276,0) 
[return] 

AREAFILL:COLOR 4,1 [return] 

FOR t% = 0 TO 16:LINE (16,8+t%*8)-(272,8 
+t%*8),6 [return] 

LINE (t%*16+16,8)-(t%*16+16,135),6 [return] 
LOCATE 1,(t%*2)+l:PRINT HEX$(t%) [return] 
LOCATE t%+l,l [return] 

PRINT HEX$(t%) [return] 

NEXT:RETURN [return] 

fieldinit2: [return] 

AREA (280,1):AREA STEP (330,0) [return] 
AREA STEP (0,136):AREA STEP 
(-330,0)[return] 

COLOR 1,1:AREAFILL:COLOR 3,1 [return] 

LOCATE 3,47:PRINT"Amiga Wave Creator" 
[return] 

LOCATE 5,46:PRINT "door Maarten 
Hoeben" [return] 

LINE (290,60)-(600,60),5:LINE (600,60)- 
(600,130),5 [return] 

LINE (600,130)-(290,130),5:LINE (290, 

130)- (290,60),5 [return] 

COLOR 0,1:RETURN [return] 

varinit: [return] 

DEFINT c,t,W:DIM timbre(255),timbres(3,255 
),swave(255),col(3), usevar(255) [return] 
swave=l:col(1)=0:col(2)=2:col(3)=3:RETURN 
[return] 

varclear: [return] 

FOR t = 0 TO 255 : FOR k = 1 TO 3 [return] 
timbres(k,t)=0:NEXT:NEXT:GOSUB fieldinit: 
RETURN [return] 

main: [return] 

GOSUB setup [return] 

GOSUB fieldinit:GOSUB fieldinit2 [return] 
menucontrol: [return] 

menuid = MENU (0):menuitem = MENU (1) 
[return] 

ON menuid GOSUB project,waveselect,wave 
form,playmenu [return] 

GOTO menucontrol [return] 

project: [return] 

ON menuitem GOSUB fieldinit,redraw,var 
clear,openwave,savewave, quit 
RETURN [return] 

redraw: [return] 

GOSUB fieldinit:store=swave:FOR swave = 

1 TO 3 [return] 

GOSUB drawwave:NEXT:swave=store:RETURN 
[return] 

namewave: [return] 

GOSUB fieldinit2:LOCATE 11,40 [return] 

INPUT "Naam:";wavename$ [return] 

RETURN [return] 

openwave: [return] 

GOSUB fieldinit2:LOCATE 9,40 [return] 

PRINT "Golf laden":GOSUB playwaveselect 
[return] 

GOSUB namewave:LOCATE 13,40 [return] 
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PRINT "Loading "wavename$" in golf"swave 
[return] 

OPEN wavename$ FOR INPUT AS #l:t%=0 
[return] 

WHILE NOT EOF(1) [return] 

INPUT #1,timbres(swave,t%):t%=t%+l [return] 
WEND:CLOSE #1:GOSUB drawwave [return] 

GOSUB fieldinit2:LOCATE 9,40:PRINT "Ok, 
gedaan." [return] 

RETURN [return] 

savewave: [return] 

GOSUB fieldinit2:LOCATE 9,40 [return] 

PRINT "Golf wegschrijven":GOSUB 
playwaveselect [return] 

GOSUB namewave:LOCATE 13,40 [return] 

PRINT "Saving golfswave" als 
"wavename$ [return] 

FOR t% = 0 TO 255:usevar(t%)=INT 
(timbres(swave,t%)):NEXT [return] 

OPEN wavename$ FOR OUTPUT AS #1 [return] 

FOR t% = 0 TO 255 : WRITE #1,usevar(t%) 
[return] 

NEXT : CLOSE #1 [return] 

GOSUB fieldinit2.LOCATE 9,40:PRINT "Ok, 
gedaan." [return] 

RETURN [return] 

quit: [return] 

SCREEN CLOSE 2 [return] 

MENU RESET [return] 

CLS:END [return] 

waveselect: [return] 

swave=menuitem:GOSUB wavemenu:RETURN 
[return] 

drawwave: [return] 
linkvar%=(timbres(swave, 1 )/ 2 ) : 

FOR t% = 0 TO 255 [return] 

LINE (t%+16,72+linkvar%)-(t%+17,72+ 

(timbres(swave,t%)/2)),col(swave) 
linkvar%=(timbres(swave,t%)/2): 

NEXT:RETURN [return] 

waveform: [return] 

GOSUB fieldinit2 [return] 

ON menuitem GOSUB frl,fr2,fr3,fr4,fr5, 
fr6,fr7,fr8,fr8 [return] 

GOTO drawwave [return] 

varinput: [return] 

LOCATE 11,40:INPUT "Begin (0-255)"; 
start% [return] 

LOCATE 12,40:INPUT "Einde (0-255)"; 
einde% [return] 

LOCATE 13,40:INPUT "VI (0-100)"; 

vl! [return] 

LOCATE 14,40:INPUT "V2 (0-255)"; 

v2! [return] 

LOCATE 15,40: INPUT "V3 (0-127)"; 

v3! [return] 

RETURN [return] 

frl: [return] 

LOCATE 9,40:PRINT "Sinus: Y=sin((X*Vl) 
+V2)*V3" [return] 

GOSUB varinput [return] 

FOR t% = start% TO einde% [return] 
timbres(swave,t%)=SIN(((t%/40.9)*vl) 

+v2)*v3 [return] 
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NEXT:RETURN [return] 
fr2: [return] 

LOCATE 9,40:PRINT "Zaagtand: Vl=breedte 
V2=plaats" [return] 

LOCATE 10,50 .-PRINT "V3=hoogte" [return] 
GOSUB varinput [return] 
ste!=(v3/2)/vl:amp!=l*v2:F0R t%=0 TO 
255 [return] 

usevar(t%)=amp!:amp=amp+ste! [return] 

IF amp>v3 THEN amp=-v3 [return] 

NEXT:FOR t%=start% TO einde% [return] 
timbres(swave,t%)=usevar(t%):NEXT [return] 
RETURN [return] 

fr3: [return] 

LOCATE 9,40:PRINT "Drieh. golf: Vl=breed 
te V2=plaats" [return] 

LOCATE 10,53:PRINT "V3=hoogte" [return] 
GOSUB varinput [return] 
ste!=(v3/2)/vl:amp!=l*v2:FOR t%=0 TO 
255 [return] 

usevar(t%)=amp!:amp=amp+ste! [return] 

IF amp>v3-2 OR amp<-v3+2 THEN ste!= 

-ste! [return] 

NEXT:FOR t%=start% TO einde% [return] 
timbres(swave,t%)=usevar(t%):NEXT [return] 
RETURN [return] 

fr4: [return] 

LOCATE 9,40:PRINT "Puls golf: Vl=breed 
te V2=breedte 2" [return] 

LOCATE 10,52:PRINT "V3=hoogte" [return] 
GOSUB varinput [return] 

ste!=vl:FOR t% = 0 TO 255:usevar(t%)=v3: 
ste!=ste!-l [return] 

IF ste!=<0 AND v3=>0 THEN v3=-v3:ste!= 
vl [return] 

IF ste!=<0 AND v3=<0 THEN v3=-v3:ste!= 
v2 [return] 

NEXT:FOR t%=start% TO einde% [return] 
timbres(swave,t%)=usevar(t%):NEXT [return] 
RETURN [return] 

fr5: [return] 

LOCATE 9,40:PRINT "Willek, golf:Vl=plaats 
V2 

=geen nut" [return] 

LOCATE 10,53:PRINT "V3=hoogte" [return] 
GOSUB varinput [return] 

FOR t% = 0 TO 255 [return] 

timbres(swave,t%) = INT ((RND(1)*v3*2)+vl)- 
127 [return] 

NEXT:RETURN [return] 

fr6: [return] 

LOCATE 9,40:PRINT "Geen golf:" [return] 

FOR t% = 0 TO 255:timbres(swave,t%)=0: 

NEXT:RETURN [return] 

fr7: [return] 

LOCATE 9,40:PRINT "Teken golf:" [return] 
LOCATE 11,40:PRINT "U kunt zelf een golf 
vorm tekenen." [return] 

LOCATE 12,40:PRINT "Om te starten moet u 
de linker muis" [return] 

LOCATE 13,40:PRINT "toets indrukken.Ver 
volgens kunt u " [return] 

LOCATE 14,40:PRINT "muis op en neer be 
wegen om de golf" [return] 

LOCATE 15,40:PRINT "te tekenen.Stop 


door op de spatie " [return] 

LOCATE 16,40:PRINT "te drukken." [return] 
x=MOUSE(0) [return] 

markstart: [return] 

IF MOUSE(0)=-l THEN x = MOUSE (1) : 

y = MOUSE (2) [return] 

IF x>15 AND x<273 AND y>7 AND y< 

137 THEN buttoncontrol [return] 

GOTO markstart [return] 

buttoncontrol: [return] 

IF MOUSE (0) = -1 THEN mousepos [return] 
IF INKEY$ = " "THEN fieldinit [return] 
GOTO buttoncontrol [return] 
mousepos: [return] 
x=x+l:y=MOUSE(6) [return] 

IF x>271 THEN x=x-l [return] 

IF y>8 AND y<136 THEN GOSUB drawpoint 
[return] 

GOTO buttoncontrol [return] 
drawpoint: [return] 

LINE (x, y) - (x, y) , col (swave) [return] 
timbres(swave,(x-16))=(y*2)-144:RETURN 
[return] 

fr8: [return] 

LOCATE 9,40:PRINT"Gemiddelde golf:" 
[return] 

LOCATE 11,40:PRINT"Van alle drie de gol 
ven wordt het" [return] 

LOCATE 12,40:PRINT"gemiddelde genomen. 

Dat gemiddelde" [return] 

LOCATE 13,40:PRINT"wordt dan in golf 1 ge 
zet." [return] 

LOCATE 14,40:INPUT"Begin (0-255)start% 
[return] 

LOCATE 15,40:INPUT"end (0-255)";einde% 
[return] 

FOR t% = start% TO einde% [return] 
timbres (1,t%)=(timbres(1,t%)ttimbres 
(2,t%)ttimbres(3,t%))/3 
NEXT:swave=l:GOSUB wavemenu:GOSUB 
fieldinit: RETURN [return] 

playwaveselect: [return] 

LOCATE 11,40:PRINT"0 = Huidige ge 
bruikte golf" [return] 

LOCATE 12,40:PRINT"(1-3) kies golf" 
[return] 

LOCATE 14,40:INPUT"golf (1-3)store 
[return] 

IF store = 0 THEN RETURN [return] 
swave = store:GOSUB wavemenu:RETURN 
[return] 

frequention: [return] 

GOSUB fieldinit2:LOCATE 9,40:PRINT "Fre 
quentie:" [return] 

LOCATE 11,40:INPUT"Herz :";herz [return] 
IF herz = 0 THEN herz = 440 [return] 
RETURN [return] 

playmenu: [return] 

ON menuitem GOSUB playwave [return] 

RETURN [return] 

playwave: [return] 

GOSUB fieldinit2 :LOCATE 9, 40 .-PRINT" 

Speel toon:" [return] 
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GOSUB playwaveselect:GOSUB frequen 
tion [return] 

GOSUB fieldinit2:LOCATE 12,40:PRINT" 
druk op de spatie " [return] 

FOR t% = 0 TO 255:timbre(t%)=timbres 
(swave,t%):NEXT [return] 

WAVE 0,timbre [return] 
soundcont: [return] 

SOUND herz,20,100,0 [return] 

IF INKEY$=" "THEN GOSUB fieldinit2: 
RETURN [return] 

GOTO soundcont [return] 

REM De volgende subroutine kan worden 
gebruikt om de weggeschreven [return] 

REM geluidsgolven in uw eigen programma 


gebruiken.Voor aan het [return] 

REM programma hoort dan de le regel te 
staan.Hierin wordt timbre [return] 

REM gedimensioneerd, [return] 

' DIM timbre (255) [return] 

' OPEN wavename$ FOR INPUT AS #l:t%=0 
[return] 

' WHILE NOT EOF(1) [return] 

' INPUT #1,timbre(t%):t%=t%+l [return] 

' WEND:CLOSE #1 [return] 

' WAVE (0-3),timbre [return] 


prijsvraag 


H et is ons dan toch gelukt, om uit de stapels inzendingen die programma’s te kiezen die de prijzen 
zouden winnen. Weken heb ik niets anders kunnen doen dan de programma’s bekijken. Niet alleen 
het aantal inzendingen was dit jaar hoger dan anders, ook de kwaliteit lag beduidend hoger dan vo¬ 
rige jaren. 

Voor het beoordelen van de programma’s hebben we een cijfer gegeven van 1 tot 10. Na afloop bleek 
maar liefst dat 72 % van de ingezonden programma’s met een voldoende te zijn beoordeeld. Hiervan 
kreeg 35 % een cijfer van 7 en hoger. Uit het aantal inzendingen uit Belgie, 25 % kwam hier vandaan, 
blijkt dat ons blad steeds internationaler wordt. 

De eerste prijs is gewonnen door R. van de Klippe uit Lemelerveld. Hij krijgt hiervoor 
een kleuren monitor. 


Voor de tweede prijs komt een programmeur in aanmerking, die graag met de C 16 werkt: 
Theo Wiersma uit Zwijndrecht. 


De derde prijs is een printer en die komt bij een inzender waar we al een aantal keren wat 
van geplaatst hebben: Y. Rozijn uit Amsterdam 


De volgende inzenders zien hun programma bekroond met een mooi software/hardware 
pakket: 

-S. Jokhan uit Surhuisterveen 
-Dirk Bouma uit Nijland 
-P van de Mespel uit Den Haa 
-Pieter de Wijn uit Harelbeke Belgie 
-J.W. Wijmwa uit Kootstertille 
-Remy de Ruysscher uit Bunnik 
-A.P.W. Baelde uit Maarsen 
-M. Geurts uit Horst 
-W. Stadhouders uit Terneuzen 
-J. Schipper uit Bunnik 

Voor de kategorie hardware zijn een aantal leuke ideeën naar voren gekomen. We bekij¬ 
ken nu welke we hiervan, in samenwerking met de maker, kunnen gebruiken voor een arti¬ 
kel. 

Dus de makers van programma’s in deze kategorie zullen nog even geduld moeten heb¬ 
ben, alvorens de uiteindelijke resultaten bekend worden. 

Rob Goudriaan. 


ü 
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GEOS, het operating system voor de C-64/128 met icons, pulldown menus en WYSI¬ 
WYG is nu een jaar oud. Alom geprezen en meermalen onderscheiden met verschil¬ 
lende prijzen staat het nog steeds in de belangstelling. Tot nu toe is echter weinig be¬ 
kend over de manier waarop GEOS werkt. Peter Boncz gaat hier in op de basis van 
de kracht van GEOS: het VLIR file-systeem. Bij dit artikel staat een listing om Geo- 
PAINT-tekeningen in (BASIC) programma’s te gebruiken. 


Data-opslag in GEOPAINT 


H et tekenprogramma Geopaint steekt met kop en schouders boven al zijn 
konkurrenten uit omdat het een combinatie biedt van bedieningsgemak, 
uitgebalanceerde schermopmaak en vooral een grote veelzijdigheid. Die 
veelzijdigheid komt tot uiting in de tientallen verschillende functies, die het 
pakket in zich heeft. Nadelen, die natuurlijk ook genoemd moeten worden, 
zijn de traagheid door het vele laden van disk, en de krappe diskruimte die 
overblijft voor bestanden van de gebruiker. 



Het geheim achter de veelzijdigheid 
van GeoPAINT is dat het komplete 
programma helemaal niet in een C-64 
past, er is steeds maar een gedeelte 
aanwezig. Als een functie wordt aan¬ 
geroepen, leest GEOS het gewenste 
deel van disk. Hier duikt dan ook de 
VLIR-structuur op. (VLIR = Variable 
Lenght Indexed Records). GeoPAINT 
is in stukjes gehakt, en naast het ba¬ 
sisgedeelte worden steeds verschil¬ 
lende brokjes ingeladen. GeoPAINT 
is dus, net als alle andere VLIR-files 
een verzameling bestanden. 

De VLIR structuur wijkt van de stan¬ 
daard 1541-diskformat af op de vol¬ 
gende punten: 


Illustratie 1. 


° de directory. 

0 de verdeling van een file in losse 
stukjes (Index table). 

° extra gegevens over het bestand, 
geplaatst in een ’fileheader’. 

° de wegschrijf-code (deze is niet AS¬ 
CII). 


Directory entry 

De 1541 diskdrive formateert een disk 
in 35 tracks. Deze zijn op hun beurt 
weer onderverdeeld in sectoren. In 
track 18 is de directory gehuisvest. In 
een directory-sector staan maximaal 
8 bestanden vermeld, ieder bestand 
heeft 32 bytes. Deze 
32 bytes worden de 
Directory Entry ge¬ 
noemd. 

De eerste twee bytes 
van een sector geven 
altijd aan op welke 
track en sector het 
programma (of de di¬ 
rectory) waar die sec¬ 
tor een deeltje van is, 
verdergaat. 

Na deze twee bytes 
begint de Directory 
Entry. Byte 0 (gere¬ 
kend na die eertse 
twee bytes) geeft het 
type file weer (PRG 
SEQ etc.) Byte 1 en 2 
geven de start track 
en sector van het be¬ 
stand, in Byte 3 en 
verder volgt de naam 
in ASCII. Na 32 bytes 
herhaalt zich dit pa¬ 
troon, dus in byte 33 
en 34 staan de start 



DIRECTORY ENTRY 

(Also Known as File Entry) 

0 

c64 File Type: O^DELeted. 1=SEQuential. 2=PRoGram, 3=USeR, 

4 = RELative. Bil 6=-Used as Write-Prolect Bit. 

1 

Track and Sector of First Data Block in Th is File. 

2 

If the File Is VLIR then this Word Poinls to the Index Table Block. 

3 

18 

16 Character File Name Padded wilh Shift Spaces $A0 

19-20 

Track and Sector of GEOS File Header (New Structure) 

21 

GEOS File Structure Type: 0=SEOuential, WVLIR 

22 

GEOS File Types: O^NOT GEOS, 1=BASIC. 2=ASSEMBLY, 3=DATA. 
4=$YSTEM, 5= DESK ACC, 6=APPL!CATION, 7=APPL DATA, 

8=FONT, 9=PRINTER, 10=INPUT.DEVICE, 11=DISK DEVICE, 

12=SYSTEM_ BOOT, 13=TEMPORARY (lor Swap Files) 

23 

Date: Year Last Modified, Oflset from 1900 

24 

Date: Month Last Modified (1-12) 

25 

Date: Day Last Modified (1-31) 

26 

Date: Hour Last Modified (0 23) 

27 

Date: Minute Last Modified (0-59) 

28 - 29 

Low Byte, High Byte: Nurnber of Blocks (Sectors) in the File 


track en sector van de volgende file, 
gevolgd door de naam etc. (zie illus¬ 
tratie 1). 


Index Table 

De directory-entry geeft in Byte 1 en 2 
de track en sector van een zg. Index 
Table (ook wel subdirectory) aan. 
Deze Index Table bestaat uit 1 sector. 
In Index Table worden alle losse stuk¬ 
jes file (Records) aan elkaar ge¬ 
knoopt. De eerste twee bytes in de In¬ 
dex Table hebben de waardes 0 en 
$ff. Hierna beginnen we te tellen. Byte 
0 en 1 geven respectievelijk de track 
en sector van Record 1, Byte 2 en 3 
die van Record 2, enzovoort tot Byte 
256 (einde sector), (illustratie 2) 


Fileheader 

In de VLIR-structuur is tot slot nog de 
fileheader belangrijk. Deze bestaat 
evenals de Index Table uit 1 sector, 
leder GEOS bestand heeft een file¬ 
header. Daarin staat informatie over 
het startadres van de routine, data 
van het icon, de geheugenlocatie van 
de routine, bij GET-INFO ingetikte 
tekst, etc. (zie ill. 3). De track en sec¬ 
tor van de fileheader staan in de Di¬ 
rectory Entry aangegeven na de 
naam, dus op byte 19 en 20. (zie ill. 1) 


CBM-graphics 

Omdat er nu is uitgelegd, hoe GEOS- 
applicaties, zoals GeoPAINT en Ge- 
oWRITE, hun data op disk zetten, kan 
er dieper ingegaan worden op de spe¬ 
cifieke eigenschappen van Geo- 
PAINT. Dan kan ook de CODERING 
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III. 2 De VLIR structuur 


van GeoPAINT bestanden behandeld 
worden. 

Daarom nu terug naar de graphics. 
GeoPAINT werkt met een bit-map 
mode HIRES scherm, (d.w.z. 25x40 
blokjes van 8x8 puntjes, ieder blokje 
heeft max. twee kleuren). Het nadeel 
van deze HIRES-mode is dat de mo¬ 
gelijkheden om met kleuren te werken 
beperkter zijn als die van de multico- 
lor mode. Het grote voordeel is, dat 
hiermee een tweemaal hogere resolu¬ 
tie bereikt wordt. Het is echter nood¬ 
zakelijk dat GEOS-applicaties met 
een bit-mapped scherm werken, de 
standaard (machinetaal)routines voor 
pull-down menu’s en tekenfuncties 
kennen namelijk alleen deze mode. 

Het bit-mapped beeldscherm is inge¬ 
deeld in CARDS (blokjes). CARD 1 
staat in de linkerbovenhoek, de vol¬ 
gende staat rechts daarvan, tot en 
met CARD 40 in de rechterboven¬ 
hoek. Dan gaat het een regel naar on¬ 
deren. (zo door tot en met CARD 
1000). Omdat iedere CARD een ras¬ 
ter van 8x8 is, bestaat hij uit 8 bytes. 
Het complete scherm bestaat dus uit 
8000 bytes. (ill. 4.) 

Het tekenvel van GeoPAINT bestaat 
uit 80 CARDS horizontaal en 90 
CARDS vertikaal, (dus 640x720 punt¬ 
jes). Alle GEOS files, dus ook tekenin¬ 
gen, worden volgens het VLIR sys¬ 
teem op disk gezet. Een GeoPAINT 
tekening bestaat dus uit stukjes, hij is 
in stroken gesneden, leder stukje (Re¬ 
cord) bestaat uit twee horizontale re¬ 
gels van 80 CARD, dus 2x80x8=1280 
bytes. Na iedere strook volgt de color 
table, waarin de gegevens over de 
kleur van de strook zijn opgeslagen. 
De kleur wordt per CARD bepaald (zie 
los kader), dus 2x80=160 bytes voor 
de color table. 


Codering 

Om ruimte op disk te spa¬ 
ren, comprimeert (verkort) 
GeoPAINT alle tekenin¬ 
gen. Er zijn daarom twee 
soorten data: data die de 
wijze van opslaan (count 
mode) aangeven, en data 
van die de gegevens zelf 
aangeven. 

Er bestaan drie count mo¬ 
des: 

”1) waarde x = 0-64. 
Functie: de volgende x 
bytes zijn niet verkort, ze 
zijn 'zichzelf. 

°2) waarde x = 65-128. 
Functie: (x-64) maal het 
patroontje van de 8 daaropvolgende 
bytes. 

0 3) waarde x = 129-255. Functie: (x- 
128) maal de volgende byte. 

Om een voorbeeld te geven: 


02, 01,198, 66, 01,03,15, 31,15, 
07, 03, 01,00, 255,0 

betekent: 

Twee (02) losse waardes : 01,198 
Tweemaal (66-64) het patroon : 
01,03,15,31,15,03,01,00 
127 maal (255-128) een 00 

Aanzienlijke geheugen- en diskwinst 
kan dus worden geboekt als een groot 
deel van de tekening met een bepaald 
patroontje is gePAINT, of als er lege 
stukken in de tekening zitten. Een 
VLIR file neemt gemiddeld 20 tot 30 
procent van de ruimte van een nor¬ 
maal bestand in! 


Zelf sleutelen 

Nu we weten hoe een GeoPAINT-file 
in elkaar zit en hoe hij gecomprimeerd 
wordt, kunnen we zelf wat gaan sleu¬ 
telen. Het is bijvoorbeeld mogelijk een 
SCREENCATCHER te schrijven. Dit 
is een programma, dat HIRES scher¬ 
men in de besproken code omzet, en 
vervolgens in VLIR wegschrijft. Dit is 


GEOS File Header Structure 


(128 bytes. New GEOS file. Pointed to by Directory Entry) 

Byte No 

Contents 

Description 

0-1 

00,FF 

00 indicates this is the last block in the lile. 

. FF is the index to the last valirl data hvte in the hlnok 

2 

3 

Width of icon in bytes, always 3 

3 

21 

Height of file icon in lines, always 21. 

4 

$80 + 63 

Bit Map data type. Top bit - 1 means the lower 7 bits contain the 
number of unique bytes which follow, i.e. 63. Always this vaiue. 

5 - 67 

$FF,$FF,$FF 

Start of picture data total of 63 bytes used to define icon graphic 


$FF,$FF,$FF 

End of picture data 

68 

$80 + PRG 

C-64 file type, used when saving the file under GEOS 

PRG - 1 , SEQ = 2, USR = 3, REL = 4. 

Bit 6 — 1 Write Protected. 

69 

$02 

GEOS file type: BASIC « 1, ASSEMBLY = 2, DATA = 3 

SYSTEM = 4, DESK_ACC = 5, APPLICATION = 6, 

APPLJ0ATA.7, FONT = 8, PRINTER . 9, INPUT DEVICE - 10, 
DISK_DEVICE - 11, SYSTEM_BOOT=12, TEMPORARY-13 

70 

0 

GEOS structure type, 1 = VLIR, 0 = SEQUENTIAL 

71 -72 

FileStart 

Start address in memory for loading the program 

73-74 

FileEnd 

End address in memory for loading the program 

75-76 

InitProg 

Address of initialization routine to call after loading the program 

77-96 

Filename 

0.1 ,.,2,0,0, 

20 byte ASCII application filename. Bytes 0-11 =the name 
' padded with spaces; 12-15=version strinq "VI.3": 16-20=0's 

97-116 

Parent Disk 
Author Name 

lf Data file, 20 byte ASCII filename of parent application's disk. 

If application program, holds name of software designer. 

117-136 

Parent 

Application 

If Data file, 20 byte parent application filename. Bytes 0-11=name 
padded with spaces; 12-15-version string "VI.3"; 16-20=0's 

137 - 159 

Application 

23 bytes for application use.. 

160 -255 

Get Info 

Used for the file menu option getlnfo. String must be null 
terminated and null must be first char if string is empty. 
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A diagram of the organization of byies in tlie bit-mapped mode screen is: 
Card 0 Card 1 Card 2 Card 3... 



Card flows 3 - 24 


III. 4. Bit-Map beeldscherm 


door mij gedaan, maar dat program¬ 
ma is te uitgebreid om hier af te druk¬ 
ken. De bij deze gepubliceerde listing 
betreft een programma dat precies het 
omgekeerde doet: het leest VLIR files 
en zet de code om, zodat de tekening 
’op ware grootte’ in het HIRES geheu¬ 
gen verschijnt. 

Dit programma schept grote perspec¬ 
tieven voor de programmeurs onder u. 
Als u altijd al vond dat uw BASIC pro¬ 
gramma’s wat kaal aandeden, ligt hier 


uw kans. Met de ruime mogelijkheden 
van GeoPAINT kunnen hele mooie 
laadplaten, schema’s e.d. gemaakt 
worden. De VLIR-IMPORTER leest 
ze vervolgens probleemloos voor u in. 

Veel succes ermee! 

P.Boncz 


De VLIR IMPORTER 


Het programma: bestaat grofweg uit 3 delen: 

» De directory-lezer. Na het intikken van de naam leest 
het programma waar de Index Table op disk staat, 

♦ Vervolgens inlezen van die Index Table. Op deze ma¬ 
nier komt het programma te weten waar de verschil¬ 
lende brokken van de tekening zich bevinden. 

• Ten slotte worden deze brokken stuk voor stuk ingele- 
zen, gecodeerd en in het grafisch geheugen gePO- 
KEd. 


Bijzonderheden: 

Het gebruikte HIRES geheugen begint bij geheugenplaats 
24576 ($6000) en eindigt bij 32576 ($7f40). Het kleuren- 
geheugen wat daarbij hoort begint bij 17408 en eindigt op 
18408. wordt als 

volgt bepaald: de kleur van de achtergrond waarbij opge¬ 


teld de kleur van de tekeningfflaal 16. Om het scherm aart 
te zetten moeten de volgende POKE’s worden verricht: 

POKE 53265,187 : POKE 53272,31 : POKE 56576,2 

De omgekeerde handeling is: 

POKE 53265,155 : POKE 53272,23 : POKE 56576,3 
Omdat het Geopaint tekenvel (90x80 CARDS) groter is 
dan een C-64 scherm (25x40 CARDS) importeerd dit pro¬ 
gramma de linkerbovenhoek van het tekenvel. Als het pro¬ 
gramma klaar is met importeren (dit kan wel zo’n 5 minu¬ 
ten duren!) kan het scherm als volgt gesaved worden: 
POKE 44,68 : POKE 43,0 : POKE 46,127 : POKE 45,64 
SAVE"naam",8,1 

Met LOAD"naam",8,1 wordt het scherm weer geladen. 

Wie nog niet bekend is met de HIRES van de C-64 raad 
ik aan voor aanvullende informatie de eerste twee jaar¬ 
gangen van C-l nog eens door te bladeren. Het voert te 
ver om dat in dit artikel nog uitgebreid te bespreken. 


Listing VLIR Graphics Importer 


:i Li 


X 26 rem * * * + *■ - •" * * " • **■' 

1 3 0 rem 

:JL4ü •..•lxr - • 

150 rem rm 

1 6.! r* .. t ¥■ f - «• ^ * * - '■•• 

1 7 Ü (•“• e m 

; ■ I • I •,! , , «r e *• x> : >V *»: •« « ;f: * f 

200 ren. ‘7 r p r •>-.r.? r*ir*f.j». -l 


rem do- ft 

y 4 (.-• if,-, ;•*; « «fc •» > •» •* r *» 4 'm 4 

£50 rem 
26© rem 

290 rem 

300 d i n ■ 1 ■ 6 ■ ■ > 1.7 > '• dinvm <17 

3 2 © p r' i Ti " C C L. R - H O' ’ £ j .. •:•< '< '■€e *' j ïü3 < 7: ü 
, i te lezen oeof i ■ C 

:30 i:l' 


351 


1 - . ■ ■' ■ -■ ■ ■' 

Qosubl *40*vfc*by aosub 1440 : v. 


40 i t" i ij 5 > 13 1.1 h -= ï j “ 0 0 

430 90 SUb 1440 * bt,=by • «o»ttb 14.40 : bs=by 

-'b 1 - ■ 1 fby < 123:?.ijdb:m94 tb-jïi ü r, 1 ? j-by- ' 

4 g 0 i f 'i"( CU y 16 01 h e Ti 47’ 0 
460 Tiexte 

=Tl 2 i+c h r $ < Tl Tl < b J > : Tl e x t 
4.9 ö i f -n 1 $=Ti ■£ o r Ti 2 $ - n $ t h e n 5 6 0 

51 8 V t ' u - 91 - •. e Ti 5 e 0 

54 0 it •..■!,-et hevip r i nr.ci.-i,.qi.ivi be-stAAt met “ 

: goto 1340 

560 rem 
570 rem 

630 p r i fit# i 5 .■ " b--r : “ 5; 0 kt: bs 
64G p r i Tit-éi-15- " b-p : "50; 

6 5 U g o s u. b 1. 4 4 0 : g o £ u. b 1 4 4 Ö 
660 +"‘ o r t — 11. o 1 3’ 

678 qosu.b 1448 ; p ok e 500 ÖÖ'+- ct~ 1 >#3 .■ by : gosu.b 
1 440 : p ok e50801 -f- <t---■ 1 >4:3 .• by 
G 3 0 i f p e e k < 5 u 0 ö 0 + < t. — 1 > # 3 >•= & t h e ti p o k e5000 

690 r-’ o k. e ■ :ï8002•+• < t. --1 > 4 3.. 0 
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ervolg VLIR-lis 

700 

nex'fc. t 

718 
720 

rem 

730 

740 

rem 

7501 

rem 

7601 

rem 

770i 

t=l 

730 

i ft” 14 the Tt 

790 

p ok e50i8401 .• 

800 

t=peek C5@0' 


- bs=peek^ 

820 

i f bm= 1 the Ti 

848 

OF “uil ® 1 

350 

P r i nt# 15 .• :I 

86Ö 

p r i nttt 15 .■ " 

8 70i 

9osu.bl440 : 

838 

rem 

8 y 0i 

re ft 

3 8 8 

rem bepale 

918 

r em 

920 

rem 

9 38 

9ÜS J.b 1 440 - 

348 

i fko<64the 

358 

i f ko<128th 

36u 


378 

rem 

938 

rem cou-nt— 

398 

rem 

1 800 

rem 

i 0 i ö 

9 o “■ u. b 1 ■+ 4 - 0 

1 020 

fora=-ltoko 

1830 

90sub1570 

1040 

nexta. : i ftt 

1050 

t = t+l ■ goto 

1 060 

rem 

1 070 

rem 

1080 

rem count-- 

1 090 

rem 

1 100 

rem 

1110 

e i =k o 

1 12Ü 

fora™1 toei 

1 1 36 

9osub 1446 

1 140 

gosub1570 

1 150 

vi ex ta. : i ft t 

i 1 60 

t*=t+l • goto 

1 178 

rem 

1 1 88. 

rem 

1190 

rem count-- 

1288 

rem 

1210 

rem 

1220 

e i k iii—6 4 : lii 

1230 

i f b>8the-n i 

1240 

90sub 1440 ; 

125Ö 

goto 1230 

1260 

b=l : a=1 

1278 

i f b>e i the ri 

1280 

by — Tis <a. > ! a. 

1230 

if a. =9thevi 

1380 

goto 1280 

1310 

if t<1441th 

1320 

t=t+1 : goto 

133Ö 

pok el 98,. 0 ; 

1348 

c1ose5 

1358 

print# 15.. 11 

13601 

C1ose15 

1370 

poke53285. 




5G60 1+ (t -■ 1 


o ij. n t- mode 




1 - “r C' 'il 

e n d 

1390 

rem 

1400 

rem 

1 4 10 

r e iïi g e t y r o u. t i r 

1420 

rem 

1430 

rem 

1440 

print# 15.. "b—p : 

1450 

by S+chir $ > : dt=<: 

if byi=chrS C 0 >ths 

1460 

by =asc c.'by T 

1470 

i t' d t = 5 o t h e n 9 0 1 c 

1480 

return 

1490 

dt -2 : p r i nt# 15 .• " t 

1 500 

15.. "b—p : 11 50; : ge 
vt~a.sc '-.by i+chr '• 

151Ö 

51 ; : 9 et#5 .■ by -$■ '■ 
goto 1480 

1520 

rem 

1538 

rem 


: get#5.. by $ : by $ 


by $ 

print #15.. "b--p : 
•c (by $+chr$ <0 > > 


1540 

rem 

"'poke"' routine 

1550 

rem 


1560 

rem 


1570 

i ftt 

•C 3 201 h e n F' 0 k e 2 4 576+ ■( 


by : t 

t=tt+i : return 

1580 

i ftt 

< 6 4 01 h e- n 1 1. «*t1 + 1 : r e t 

1590 

i ftt 

<9601h e Ti t- 3 .— 11. — 3 2 0 : p 


1 >me 

40+ta.. by : tt~tt + 1 : ta. 

1 600 

i ftt 

< 12881h e n 11 =-• 1.1 + 1 : r e 

1610 

it'tt 

C13281h e n t a ~ 11 12 8 8 


t-i : 

*8G+ta .• by : tt=tt+l : r 

1628 

i ftt 

•C13681h e n 11 - 11 + 1 : r e 


1638 i f 11< 14Ü81henta=11-1368 : p ok e 17448+ 
t-~l )*80+ta... by : tt=11 +1 : return 

164 Ö 11-=114-1 = f- e1 ij, 

1650 rem 
1660 rem 

1678 rem •"p oke leeg 1 " routine 
1680 rem 
16y0 rem 

1 >■' 0 0 'F o i'“' a.— c.ï 4 5 1 - ' 6 4 t — 1 *6 4 0 1 o a. + 6 3 3 : p o k e a >' 
■ ‘i*i e x t ■?. • t o r a — 17 4 y 8 + t — 1 * 3! 01 o a.+7 3 
1710 p ok ea .• 131 : nexta : t ss t+1 : goto780 

*** EINDE LIST ING *** 



w ïP*’ 1 ! 





: RW Ül 


NI 08 


■ iiï f 1 1 ^ fci! 


; 3; 





ÉM 


, rv- j< M 





SWk. 


Ts>n F’H * 

ster 'f 


, ïtm 

f *)• •> il FhiU 
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Amiga 

Upgrade Music Studio 

In Amerika heeft Activision de versie 
2.0 van The Music Studio aangekon- 
digd, waarvan geregistreerde gebrui¬ 
kers van The Music Studio (Amiga of 
Apple II) een upgrade kunnen krijgen. 
Het programma werkt op Amiga’s met 
minimaal 512 K RAM en Kickstart 1.2. 
The Music Studio is een zeer uitge¬ 
breid programma voor het werken met 
MIDI-apparatuur. 

DeluxeProductions 

In de Deluxe serie van Electronic Arts 
is Deluxe Productions voor de Amiga 
voor professioneel videoproducties en 
zakelijke presentaties. Het program¬ 
ma gebruikt 16 kleuren en hoge-reso- 
lutie graphics. Er zijn vele editing tech¬ 
nieken en speciale effecten. Het pro¬ 
gramma kan met alle andere Deluxe 
programma’s samewerken. 

F-18 Interceptor 

Ook van Electronic Arts komt de zeer 
geavanceerde flight-simulator voor de 
Amiga. Er kan gekozen worden tus¬ 
sen de F-18 Hornet en de F-16 Fal- 
con, beide in werkelijheid ook be¬ 
staande gevechtsvliegtuigen. Men 
kan op verschillende vliegvelden of 
een vliegdekschip starten en landen. 
Er zijn zes verschillende misssies, zo¬ 
als het beschermen van het vliegtuig 
van de president of het voorkomen 
van wereldoorlog drie. Er is een zeer 
gedetailleerde grafische afbeelding 
van San Fransisco in het spel inge¬ 
bouwd. 


Blackshadow 

Dit spel voor de Amiga heeft niets met 
oogschaduw te maken maar is een 
grafisch fraai spel waarin de aarde 
wordt bedreigd door een langzaam 
naderbij komende astroïde, die wordt 
beschermd door een krachtveld waar 
geen mens doorheen kan breken. De 
speler wordt nu als vrijwilliger naar 
deze ster gestuurd, omdat weten¬ 
schappers een methode hebben ge¬ 
vonden om het krachtveld kort te on¬ 
derbreken. Aan de speler om de aar¬ 
de te redden van de dreiging die 
Blackshadow vormt. 

From Russia 

Het eerste Russische computerspel 
dat in het westen is doorgedrongen 


Nieuws 


heet Tetris en wordt door Mirrorsoft op 
de markt gebracht. Het spel werd be¬ 
dacht door een onderzoeker van de 
Academie der Wetenschappers in 
Moskou en geprogrammeerd door 
een student van de Moskouse univer- 
siteit. Tetris is een eenvoudig maar 
zeer verslavend abstract puzzelspel, 
beschikbaar voor C-64, Amiga, Atari 
ST en IBM-compatibles. 

Professor Eyestrain 
Terramexis een arcade-spel waarin 
Professor Albert Eyestrain waar¬ 
schuwt tegen een atroide die op een 
aanvaringskoers met de aarde is 
(waar hebben we dat eerder gezien). 
Albert is in z’n jeugd al eens van 
school gestuurd omdat hij de auto van 
het hoofd van de school in boter had 
veranderd. Nu wordt hij dan ook niet 
geloofd, totdat het bijna te laat is. De 
professor is dan al kniezend verdwe¬ 
nen, en de speler wordt geacht hem 
weer op te sporen voordat het echt te 
laat is. Daarna moet Eyestrain ook 
nog overreed worden om de wereld te 
redden. Geen geringe taak, die met 
de C-64, Amiga of Atari ST kan wor¬ 
den uitgevoerd. 

C-64 


Majong 

Een computerversie van deze Chine¬ 
se methode om te jokeren is gemaakt 
door CDS software (engeland) vol¬ 
gens regels die zijn aanbevolen door 
de Britse Mah-Jong vereniging. Op 
het beeldscherm speelt je hand in 3-D 
graphics tegen de computer. Er is een 
demonstratiemogelijkheid ingebouwd 
en er zijn vier oefensessies mogelijk. 
De computer kan op negen niveaus 
van intelligentie worden ingesteld. Er 
komen naast de C-64 cassette en dis¬ 
kette ook versies voor de Amiga, Ata¬ 
ri ST en DOS computers. 


The President is missing 

Bij dit spel voor de C-64 zijn een aan¬ 
tal mysterieuze aanwijzingen op een 
audio-cassette bijgevoegd. Daarmee 
moeten we proberen de president van 
de Verenigde Staten en andere deel¬ 
nemers aan een geheime economi¬ 
sche topconferentie uit de handen van 
zijn ontvoerders halen. Hulpmiddel is 
verder de centrale computer van de 
contra-terrorisme afdeling van de CIA. 
Als je doordingt tot het geheim van de 
ontvoering zal echter blijken dat daar¬ 


achter een nog veel wilder en sinister 
plan schuilgaat. 



Road Warrior 

Als je houdt van joy-rijden in een auto 
of op een motor dan is dit het juiste 
spel. Er wordt in aangezet tot haat te- 
gens Hells Angels, want die horen vol¬ 
gens de begeleidende brief niet op de 
weg. Zoals zoveel andere ‘spelletjes’ 
speelt ook hierin geweld een belang¬ 
rijke rol. Onder begeleiding van mu¬ 
ziek en met behulp van verschillende 
wapens kun je in je Ferrari of Volkswa¬ 
gen de straten schoonmaken. 

Gulf Defense 

In navolging van de Nederlandse ma¬ 
rineschepen kan men ook met de 
Commodore 64 of 128 naar de Golf 
gaan om tankers te escorteren, mij¬ 
nen op te ruimen en je te beschermen 
tegen raids van speedbooten. Ten¬ 
slotte zal gebeuren waarvoor men 
voorlopig in de Golf alleen nog maar 
bang is, men zal oog in oog komen te 
staan met de strijdkrachten van de Ay¬ 
atollah. 
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Rampage 

Gebaseerd op één van de populairste 
arcade-hal spellen van het afgelopen 
jaar is Rampage een spel van rampen 
en vernietiging in drie dimensies. Er 
zijn drie verschrikkelijke wezens, die 
nogal sterk lijken op Godzilla, King 
Kong en Wolf-man. Deze monsters 
gaan tekeer tegen wolkenkrabbers, 
gaan op helicopters en soldaten zitten 
en eten zelfs onschuldige voorbijgan¬ 
gers op. Al dit verschrikkelijks kan op 
een Commodore 64 worden ge¬ 
speeld. 

Solid Gold 

Deze serie ‘klappers’ is verder uitge¬ 
breid met toppers van Activision, Info- 
com en Gamestar: 

° Hacker II: The Doomsday Papers 
°The Transformers: Battle to Save 
the Earth 
0 Zork 1 

° Hitchhikers Guide to the Galaxy 
° Star Rank Boxing/On-Court Tennis 

Time Fighter 

Deze orgie van strijd en geweld door 
de eeuwen heen is afkomstig van 
CRL en beschikbaar op cassette of 
disk voor de C-64. Beginnend in het 
stenen tijdperk maakt men de pro¬ 
gressie in strijdmethodes en wapens 
mee van knuppels tot laserkanonnen. 
Behalve de geschiedenis van het 
vechten komt ook een mogelijke toe¬ 
komst aan de orde. Als je al deze me¬ 
thodes hebt gehad dan lijkt het erop 
dat je in staat moet worden geacht het 
leukste of interessantste wapen uit de 


geschiedenis te kiezen, maar nog be¬ 
ter is het als dit spel de werkelijkheid 
kan vervangen. 

Thundercross 

Nog een spel van CRL voor de C-64. 
Een ruimtestofzuiger genaamd Thun¬ 
dercross is van plan het gehele uni¬ 
versum op te zuigen. Het is door een 
groot aantal verdedigings-schepen 
omringd dus er is bijna niet bij te kom- 
ne. Toch is het onvermijdelijke doel 
van dit spel om deze stofzuiger on¬ 
klaar te maken zodat we niet allemaal 
in de grote stofzak terecht komen. Na¬ 
tuurlijk rust de redding van het hele 
universum weer op de schouders van 
de speler. 


Snooker 

Speciaal voor de Engelsen en de fans 
van de BBC-televisie is er een re-re- 
lease van het snooker spel goedge¬ 
keurd door de ‘wereldkampioen’ Ste- 
ve Davis. Men kan op diverse manie¬ 
ren snooker spelen, tegen de compu¬ 
ter of als demonstratie. Er zijn vele 
moqelijkheden om de ballen te contro¬ 
leren. 


Thunderchopper 

Voor de echte oorlogsfanaten en lief¬ 
hebbers van vlieg-animatie is er van 
ActionSoft een pakket voor de 64/128 
uitgekomen waarin technologie van 
SubLogic is verwerkt. De speler krijgt 
de beschikking over een Hughes 
530MG Defender helicopter waarmee 
op diverse niveaus kan worden gevlo¬ 
gen, van eenvoudige landingsoefe- 


Namaak 1541 drives 

Commodore Nederland vermoedt dat 
er in Nederland op grote schaal na¬ 
maak 1541 diskdrives aangeboden 
worden. Commodore heeft van deze 
diskdrive de speciale chips en het 
aangepaste operating systeem ont¬ 
wikkeld en maakt daarom vanaf nu in¬ 
ternationaal jacht op de namaak dri¬ 
ves, haar producent en aanbieders 
van de drives. Commodore zal daar¬ 
toe steekproeven nemen om zo de 
namaak drives op te sporen. 

Amiga en audio-video 

De Academie voor Schoone Kunsten 
in Utrecht verzorgt vanaf donderdag 
17 maart een aantal driedaagse cur¬ 
sussen over de mogelijkheden van de 
Amiga voor de Audio-Video produ¬ 
cent. Het gebruik van de Amiga in de 
dagelijkse praktijk staat hierbij centra¬ 


al. De cursus is bestemd voor iede¬ 
reen die zich professioneel met au- 
dio-visuele communicatie bezig¬ 
houdt. Er wordt aandacht besteedt 
aan 2D-animatie, professionele on¬ 
dertiteling, digitaliseren van video¬ 
beelden, 3D ’polygon’ animatie en 
‘ray tracing 3D animatietechniek. Er 
vinden in 1988 zeven cursussen 
plaats, waarbij per cursus maximaal 
15 deelnemers ingeschreven worden. 

Amiga draagtas 

Aristos Informatica levert speciale 
draagtassen voor de Amiga 500 en 
1000. De zwarte tassen zijn gepol- 
sterd, de buittenkant is gemaakt van 
geweven nylon en de boering van 
niet-krassende nylon/trico. De tassen 
zijn voorzien van sterke nylon ritsen, 
een schouder-draagband en sterke 
handgrepen. De prijs voor de sys- 


ningen tot de meest gevaarlijke ge- 
vechtsmissies. 


Cinemaware 

Een begrip dat staat voor interactieve 
spelsoftware of interactieve film en 
werd bedacht door Bob Jacob, de pre¬ 
sident van Cinemaware Corporation. 
Na de succesvolle titels Defender of 
the Crown, SDI, The King of Chicago 
en Sindbad and the Trone of the Fal- 
con, komen er twee nieuwe titels uit. 
The Three Stooges is een comedy 
classic waarin de van het witte doek 
bekende figuren optreden. Ze probe¬ 
ren een oude dame en haar drie 
prachtige dochters te helpen wiens 
weeshuis wordt bedreigd door de ge¬ 
mene bankier Mr. Fleecem. De stoog¬ 
es proberen geld in te zamelen door 
prijsvechten, taarten gooien of gekke 
medische activiteiten. Rocket Ranger 
is geïnspireerd op klassieke helden 
als Flash Gordon, Commando Cody 
en Indiana Jones. In het jaar 1940 is 
er vanuit de toekomst een raketpak, 
straalgeweer en geheim decodeer- 
wiel opgestuurd om te vorkomen dat 
de Nazi’s de oorlog winnen. Rocket 
Ranger is verdeeld in afleveringen, 
net zoals Hogan’s Heroes. 



teemeenheid-tas bedraagt ƒ 115,-, de 
monitortas kost ƒ 125,- (excl. BTW). 
Inl: 03461 -3204. 


De Ergostick 

In Amerika werd in januari op de Con- 
sumer Electronics Show in Las Vegas 
een ieuw model joystick getoond. De 
Ergostick van WICO Corporation 
heeft een ergonomisch goed ontwerp, 
omdat het apparaat speciaal gevormd 
is om aan te sluiten bij de vorm van de 
hand. Het apparaat is gedeeltelijk ge¬ 
maakt van een zacht, op huid gelij¬ 
kend materiaal, en de vuurknop ligt 
precies op de juiste plaats voor ge¬ 
bruik met de wijsvinger. In Amerika 
wordt een prijs van 25 dollar ge¬ 
noemd. 
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Gizmoz 

De Gizmoz Productivity Set is ontwik¬ 
keld om volledig alle kwaliteiten van 
de Amiga te gebruiken door Digital 
Creations en wordt door Robtek op de 
markt gebracht. Het programma 
maakt het gebruik van de computer 
makkelijker. Het bevat een aantal 
krachtige gereedschappen om op¬ 
drachten makkelijker te kunnen uit¬ 
voeren. Op de schijf staat van elk pro¬ 
gramma een duidelijk uitleg. Helaas is 
deze uitleg, evenals de uitgebreide 
handleiding in het Engels geschreven. 
Het programma wordt geleverd op 
een onbeveiligde disk, zodat de routi¬ 
nes probleemloos naar een harddisk 
kunnen worden geschreven wat voor 
vele (serieuze)gebruikers een uit¬ 
komst is. 

Memopad is een klein, in het geheu¬ 
gen blijvend file waarin teksten kun¬ 
nen worden opgeslagen. Bijvoorbeeld 
aantekeningen die tussendoor even 
bekeken kunnen worden. 

Calendar is een in het geheugen blij¬ 
vende kalender die het mogelijk 
maakt om tussendoor een datum op 
te zoeken tussen 1900 en 2099. 
Rollodex biedt u de mogelijkheid om 
namen en adressen op te slaan en 
deze snel te kunnen opzoeken. Er 
kunnen kaarten worden opgeslagen 
van 5 rijen van elk 36 karakters. 
Black book is het centrale opmaak 
programma voor de eerder genoemde 
programma’s. Printer layouts kunnen 
hiermee worden gemaakt. 

Hotkey geeft de mogelijkheid aan een 
bepaalde toets een definitie te koppe¬ 
len. Deze instellingen kunnen ook ge¬ 
saved worden. 



Gizmoz 


Scientific Calculator geeft de Amiga 
een extra dimensie als wiskundige re¬ 
kenmachine. Ook printen behoort tot 
de mogelijkheden. 

Financial Calculator geeft u de be¬ 
schikking over een rekenmachine die 
speciaal is toegespitst op de financië¬ 
le wereld. 

Programmer Calculator Deze reken¬ 
machine heeft vele mogelijkheden die 
door programmeurs met open armen 
zal worden ontvangen. 

Fastprefs is een utility die het moge¬ 
lijk maakt instellingen van de prefe- 
rence snel te veranderen. 
QuickMouse is een in het geheugen 
blijvend programma dat het werken 
met de muis sneller maakt zonder dat 
de nauwkeurigheid verloren gaat. 
Announce is een handig hulpmiddel 
bij het experimenteren met de Amiga 
en zijn verschillende kwaliteiten. 
SuperLife computers zijn er niet al¬ 
leen om te werken maar ook spelen 
moet een van de mogelijkheden zijn is 
de basis van deze optie. 

Graph is een eenvoudig en flexibel 
hulpmiddel om grafische afbeeldingen 
op het scherm te toveren. 

Cuckoo Clock is een stukje gereed¬ 
schap om de tijd zeer realistisch op 
het scherm weer te geven. 

IconMaker hiermee kunnen IFF files 
tot icon worden omgetoverd. 

Terminal maakt het mogelijk Amiga’s 
aan de buitenwereld te koppelen via 
de 232 interfaces. 

PopUp hiermee is het mogelijk een 
grote variëteit aan informatie als ach¬ 
tergrond scherm te geven 
Compress maakt files korter. Bij data¬ 
overdracht is een kortere tijd nodig om 
de informatie over te brengen 
Encrypt maakt van een file, voor een 
ander, een onleesbare tekst. 
SetPriority hiermee maakt u de Ami¬ 
ga duidelijk welke opdrachten voor¬ 
rang hebben bij het uitvoeren van de 
multitasking. 

THE WORKS 

Nieuw in Nederland is het geïntrigeer¬ 
de software pakket the Works. Het is 
een Spreadsheet, database en word¬ 
processor in één. Deze software is op 
één disk bijelkaar gebracht zodat het 
steeds wisselen bij het werken tot het 
verleden behoort. Dit is zeker voor 
diegene die veel wisselen tussen da¬ 
tabase, spreadsheet en de tekstver¬ 
werker een grote tijds en ergernis be¬ 
sparing. Het maakt het werken een 
stuk eenvoudiger doordat er met de¬ 
zelfde pull down menu’s wordt ge¬ 
werkt voor de verschillende modules 


waaruit het programma is opge¬ 
bouwd. Dit houdt ook in dat er voor de 
verschillende programma’s niet 
steeds een nieuwe handleiding be¬ 
hoeft te worden bestudeerd. 

Als spreadsheet is gekozen voor Ana- 
lyze. Een spreadsheet is niets anders 



THE AMIGA' COMPUTER STARTER KIT 


WORDPROCESSOR • SPREADSHEET • DATABASE 



The Works 

dan een uitgebreide rekenmatrix. 
Hiermee kunnen uitgebreide reken¬ 
kundige bewerkingen snel en foutloos 
worden uitgevoerd. Het bestaat uit 
een aantal verticale en horizontale rij¬ 
en. Verticaal zijn deze gekenmerkt 
door een letter en horizontaal door 
een cijfer, leder vakje dat verkregen 
wordt door de kruising van de rijen en 
kolommen wordt een cel genoemd. Ie¬ 
dere cel heeft hierdoor een unieke 
code gekregen bv. A-1, G-12, k-5 enz. 
In iedere cel kan een nummer, een la¬ 
bel of een formule worden opgesla¬ 
gen. De grote sterkte van een spre¬ 
adsheet wordt hiermee aangetoond. 
Tellen, bewerken, vergelijken alles is 
zowel horizontaal als verticaal moge¬ 
lijk. Veranderd er ergens één of meer¬ 
dere gegevens dan is een correctie zo 
uitgevoerd, alleen de waarde of for¬ 
mule in de desbetreffende cel veran¬ 
deren en de gehele berekening is bij¬ 
gewerkt. Hierdoor is het bijvoorbeeld 
mogelijk een bedrijfsresultaat steeds 
up to date te houden. Gegevens die 
zijn ingevoerd kunnen eenvoudig in 3 
dimensionale grafieken op het beeld¬ 
scherm worden getoond. Voor de er¬ 
varen gebruiker is er een speciale ma¬ 
cro taal om de gegevens nog sneller 
te kunnen invoeren. Een extra plus¬ 
punt is de compatibiliteit met het be¬ 
kende software pakket Lotus 1-2-3. 
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Scribble is de uitgebreide tekstver¬ 
werker die in het geheel is opgeno¬ 
men, hierin zit alles wat er van een 
moderne tekstverwerker mag worden 
verwacht. Het intypen van tekst is erg 
eenvoudig. Men hoeft aan het einde 
van een regel niet zelf naar het begin 
terug te gaan, dit verzorgt het 
tekstverwerking pakket zelf. Het af¬ 
breken van woorden aan het eind van 
de regel gaat automatisch en scheelt 
aanmerkelijk in de snelheid. De twee¬ 
de tijdwinst komt doordat men minder 
op fouten behoeft te letten en daar¬ 
door makkelijker gaat typen. Het pro¬ 
fessionele uitlijnen van twee zijden 
van de tekst is met een tekstverwerker 
geen enkel probleem, een druk op de 
toets is alles wat men er voor moet 
doen. Als u de tekst op een schrijfma¬ 
chine schrijft verschijnen de letters op 
het papier, bij een tekstverwerker 
werkt u met een beeldscherm waar¬ 
door fouten en of toevoegingen van 
letters, woorden en zelf gehele zinnen 
kinderspel zijn geworden. Bewerken 
van de teksten kunnen door de com¬ 
puter worden uitgevoerd. Hierbij kunt 
u denken aan centreren van teksten 
het opnieuw indelen van teksten of in 
een andere letter afdrukken van (stuk¬ 
ken) van de tekst. Bij een aantal tekst- 
verwerkingspakketten is het zelf mo¬ 
gelijk dat er op de tekst bewerkingen 
worden uitgevoerd. Kolommen kun¬ 
nen worden geteld, BTW-percentages 
automatisch berekend. Dit alles houdt 
wel in dat er aan een tekstverwerkings 
pakket hoge eisen moeten worden ge¬ 
steld. Scribble heeft naast deze 
mogelijkheden ook een spellingskon- 
trole en een mailmerge mogelijkheid. 
Er kunnen tot 4 documenten tegelijk 
op het scherm worden gebruikt. 

Organize als laatste maar zeker niet 
als slechtste is de database die het 
geheel complimenteert. Een database 
is eigenlijk niets anders dan een ver¬ 
zameling gegevens, hierop zijn een 
groot aantal bewerkingen mogelijk. 
Een database wordt verdeeld is een 
elektronische kaartenbak. Hierin zijn 
de kaarten de records, en hierop 
staan een aantal velden, dit zijn de ge¬ 
gevens. Op elk record en de velden is 
het mogelijk te sorteren. Ook bestaat 
de mogelijkheid een voorwaarde mee 
te geven bv. alles dat groter is dan .. 
De uitkomsten zijn zowel naar het 
beeldscherm als ook naar de printer te 
sturen. Eén van de sterke punten van 
Organize zijn de Project icons, auto¬ 
matisch wordt een database geopend 
en worden de gegevens bewerkt. 
Rapporten zijn volledig aan uw eigen 


wensen aan te passen en kunnen 
worden gesaved en geprint. Gege¬ 
vens kunnen worden geblokkeerd zo¬ 
dat onbevoegden nooit inzage in deze 
gegevens kunnen krijgen. 

Gegevens vanuit de drie onderdelen 
kunnen van de ene naar de andere 
module worden overgezet. Het pakket 
maakt gebruik van de unieke grafi¬ 
sche en kleur mogelijkheden van de 
Amiga. Wat heeft u nodig om met dit 
uitgebreide pakket te kunnen werken: 
Een Commodore Amiga met minstens 
512K met één of twee diskdrives, een 
Kickstart 1.1 of 1.2 en natuurlijk het 
geïntegreerde pakket the Works. 

De leverancier is Cat & Korsh (010- 
4507696) en het pakket kost nu ter in- 
troduktie slechts ƒ 499,-. 

KICKSTART 2 

Dol op motertrails en in het bezit van 
een Amiga dan is ditje kans, allereerst 
ga je met een motor over allerlei hin¬ 
dernissen zo kun je je kunsten tonen 
en zo min mogelijk brokken makend 
aan de finish komen. Bij de kleinste 
vergissing maak je een mooie duik¬ 
vlucht, en met een grandioze salto 
over je motor heen gelukkig zonder 
verdere brokken krijg je de kans om 
weer verder te gaan. Er zijn diverse 
hindernissen te nemen zo hoefje niet 
raar te kijken als je over telefooncellen 
heen moet springen, bewegende pij¬ 
pen moet omzeilen, en nog veel meer 
van dat schoons. Bij daglicht valt dit 
niet mee maar in de nacht zijn deze 
hindernissen extra moeilijk Maar de 
leukste mogelijkheid is toch wel om je 
eigen hindernisbaan te ontwerpen. 
Hierdoor is het mogelijk de meest on¬ 
mogelijke hindernissen te maken. Nu 



Kickstart 


kan je zelf de moeilijksgraad bepalen. 
Maak het niet te moeilijk want je ver¬ 
gist je snel in je kwaliteiten als trail- 
coureur. 

Kickstart 2 is uitgebracht door Master- 
tronic (prijs onbekend). 


DOS 2 DOS 



MS-DOS/Atari ST to/from Amiga 


Dos to Dos zet AmigaDos over naar 
Ms-Dos en Pc-Dos en omgekeerd. Dit 
biedt ideale mogelijkheden voor tek¬ 
sten die op de Amiga zijn geschreven 
over te zetten naat Ms-Dos en dan 
met de professionele desktop pakket¬ 
ten te bewerken. Zelf overzetten naar 
een zetmachine behoort nu tot de mo¬ 
gelijkheden. Dos 2 Dos kan alle files 
van AmigaDos, ja zelfs van de Atari 
ST overzetten naar Ms-Dos. Pro¬ 
gramma files van Ms-Dos zoals .exe 
en .com files worden wel overgezet 
maar kunnen op de 68000 micropro¬ 
cessor van de Amiga niet werken. Het 
zelfde geldt voor het omgekeerde 
Amiga programma’s werken niet op 
een IBM of een IBM kloon. D2D werkt 
alleen vanuit de Command Line Inter¬ 
prater of kortweg het CLI. Het pro¬ 
gramma maakt geen gebruik van de 
Intuition interface, Windows en de 
muis. Het programma leest en forma- 
teerd 5.25 en 3.5 inch diskettes onder 
Ms-Dos. Wildcards zijn bij het invoe¬ 
ren van de filenamen toegestaan 
maar er wel opletten dat het Ms-Dos 
formaat niet meer dan acht karakters 
kent. Atari ST diskettes (het GEM for¬ 
maat) kunnen op de Amiga worden 
gelezen. Dit geld zowel voor enkelzij- 
dige als dubbelzijdige diskettes. Door 
het intypen van een ? wordt er een lijst 
op het scherm getoond waar alle toe- 
gestane commando’s worden uitge¬ 
legd. D2D wordt volledig in het geheu¬ 
gen gelezen zodat na het inlezen de 
(backup van) het programma niet 
meer behoeft te worden gebruikt. 
Noodzakelijk om met dit programma 
te kunnen werken is een Amiga (min 
256K) met minstens twee diskdrives, 
waarvan er dan één als Ms-Dos drive 
kan worden benoemd. 
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In deze elfde aflevering van de cursus machinetaal gaat Tjipke van der Land verder 
met het uitwerken van de assembler-mogelijkheden. In dit deel komen met name een 
aantal instructies aan de orde die wat dieper worden besproken dan in het vorige deel. 


Machinetaal 


door Tjipke van der Land 

Deel 11: Assemblerinstruktie 

D e vorige keer heb je kunnen zien hoe de assembler werkte met daarbij 
nog enkele instructies waarmee te experimenteren valt. Deze keer gaan 
we wat dieper in op de nieuwe instructies, voor diegenen die het de vorige 
keer niet zo snel konden volgen. 



tabel 1. 

X REGISTER 

ADRESOPGAVE 

ECHTE ADRES 

$0 

$300 

$300 

$1 

$300 

$301 

$2 

$300 

$302 

$3 

$300 

$303 

$4 

$300 

$304 

$5 

$300 

$305 


Het belangrijkste tot nu toe is dat je 
ongeveer begrepen hebt hoe de in¬ 
structief van de assembler werken. 
De vorige keer heb je kunnen zien hoe 
we een ASCII string ergens uit het ge¬ 
heugen hebben gehaald en vervol¬ 
gens in het video geheugen hebben 
neer gezet, met de geïndexeerde x 
methode. 

Geïndexeerde x-methode 

Het grote verschil met de manier die 
we eerst hebben uitgevoerd was dat 
je veel minder instructies nodig had, 
maar ook dat de lengte van de ASCII 
string niet meer zo belangrijk is. Hij 
blijft namelijk net zo lang karakters op¬ 
halen totdat hij de waarde nul tegen 
komt. Eerder stopt hij gewoon niet. In 
dit geval kun je natuurlijk nooit meer 
dan 256 karakters ophalen, omdat het 
x register geen waarde kan bevatten 
die hoger is dan 256 vanwege zijn 
acht bits breedte. Met een paartruuk- 
jes kan dat natuurlijk wel, maar niet 
volgens de regels van dit programma. 
Het is overigens heel gebruikelijk om 
aan het eind van een string een stop- 
code te plaatsen wat dus niet altijd 
een nul hoeft te zijn. Het kan dus ook 
hexadecimaal FF zijn. Op deze ma¬ 
nier kun je een heleboel tekst die nor¬ 
maal in een programma voorkomt er¬ 
gens achtereenvolgend in het geheu¬ 
gen neerzetten, alleen gescheiden 
door de stopcode. Op deze manier 
hoef je alleen maar het juiste adres 
van de string op te geven, en voor de 
rest wordt het wel afgewerkt. 

Voor het uitvoeren hiervan is natuurlijk 
wel een programma nodig, want zoals 
wij weten gaat dit niet automatisch. 
Het programma van de vorige uitgave 
is bijvoorbeeld wel geschikt te maken 
om zoiets uit te voeren. Daarbij moe¬ 


ten wij ons wel realiseren dat dit pro¬ 
gramma bij elk woord dat geprint moet 
worden aanwezig moet zijn. Dat dit te 
veel ruimte in beslag neemt zal wel 
duidelijk zijn. Dit probleem is op te los¬ 
sen door hiervan een subroutine te 
maken. Dus voor elk woord wat wij 
willen gaan printen zetten we wat ba¬ 
sisgegevens in een register of geheu- 
genlokatie voordat we de routine aan¬ 
roepen. Deze gegevens zijn bijvoor¬ 
beeld, op welk adres moet het eerste 
karakter opgehaald worden, en waar 
moet het geprint moet worden. 

Als je dit soort gegevens zo neerzet 
dat de subroutine weet waar ze staan 
dan hoef je dit programma maar één 
keer te maken en bespaar je weer een 
heleboel kostbare geheugenbyte’s. 

Subroutine 

Voor het realiseren van deze subrou¬ 
tine is weer veel infomatie nodig en we 
moeten het programma van de vorige 
keer drastisch wijzigen zodat we de 
parameters ergens kunnen ophalen 
uit het geheugen of register. Deze 
kennis zullen we vanwege de comple¬ 
xe samenstelling in twee keer behan¬ 
delen. i 

We willen dus door middel van een 
routine meerdere teksten op verschil¬ 
lend plaatsen op het scherm laten 
zien. We gaan er vanuit dat we be¬ 
schikken over een databestand, dus 


een plek waar we alle teksten hebben 
staan. We moeten goed weten op 
welk adres elk woord of tekst begint. 
Dit is op te lossen door het 
geïndexeerd indirekt adresseren. Dit 
proces is niet echt eenvoudig te be¬ 
grijpen, maar met een beetje geduld 
kom je hier gegarandeerd uit. Voor de 
duidelijkheid leggen we nog een keer 
uit wat geïndexeerd was en daarna in¬ 
direkt. Het geïndexeerd laden van de 
accu in ons voorbeeld ging door een 
adres aan te wijzen, waar bij de waar¬ 
de van het adres de waarde van het x 
of het y register werd opgeteld. Stel 
dat de waarde in het x register $5 is en 
het adres is $300. Dan wordt de 
waarde voor de accumulator geladen 
van adres $300 + $5 dus $305. 

In het tabelletje boven kun je zien dat 
de geadresseerde waarde waar de 
accu z’n getal kan laden steeds de op¬ 
telling is van de waarde in het x regis¬ 
ter + de waarde die je opgeeft. Houd 
er wel rekening mee dat de waarde in 
het x register niet uit zichzelf veran¬ 
dert. Je moet dus zelf de waarde ver¬ 
hogen of verlagen, met de instructies 
INX (verhoog de waarde in x met 1) of 
DEX (verlaag de waarde in x met 1). 
Doe je dat niet dan wordt de accu 
steeds met hetzelfde getal geladen, 
en had je hem dus beter absoluut kun¬ 
nen adresseren. In het programma 
van de vorig uitgave kan je dit terug 
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vinden. Van dit programma willen we 
dus een subroutine maken, zodat we 
dit programma niet steeds hoeven 
tussen te voegen bij elk minuscuul 
woordje dat we willen laten zien. Bij¬ 
voorbeeld in een programma" Printen 
Ja/Nee ". Stel dat je voor het woordje 
"Ja" elke keer dit programmaatje moet 
invoeren. Dit is dus niet de bedoeling, 
en we doen zulke grappen ook beslist 
niet. Het is beter één keer veel moeite 
te doen, waarrdoor het voor de rest 
heel gemakkelijk gaat worden. 

Stopcode 

De tekst die in een programma voor¬ 
komt kun je gewoon tijdens het pro¬ 
grammeren plaatsen in het zoge¬ 
naamde datablok. Dit is het gereser¬ 
veerde stukje geheugen waar je alle 
tekst neerzet die in het programma 



eerste woord wat je gaat gebruiken, 
met daarachter het stopcode. Bij het 
volgende woord ga je gewoon door 
achter de stopcode van het eerste 
woord. Je moet nu wel het beginadres 
van het tweede woord onthouden of 
opschrijven. Dit is raadzaam omdat je 
straks nog moet weten op welk adres 
bijvoorbeeld woord 15 staat. Persoon¬ 
lijk vind ik het een beetje pittig om 15 
hexadecimale getallen tijdens het pro¬ 
grammeren te onthouden. Dus op¬ 
schrijven I! In het onderstaande voor¬ 
beeld krijg je een indruk hoe de tek¬ 
sten in het geheugen komen te staan 
(zie tabel 2.) 

Hier moet je dus weten dat woord 1 is 
te vinden op adres $300 en woord 2 
op adres $312, want de eerste string 
van letters ziin 17 stuks dus $11 + de 


stopcode is tezamen $12. Dit opgeteld 
bij $300 is $312. Het adres van het 
eventuele derde woord zal dus $312 + 
$F +$1 = $322 zijn. Waar we naar toe 
willen is straks voor het springen naar 
de subroutine een register te laden 
met een waarde welke wijst naar het 
woord wat je wil laten afdrukken op 
het scherm. Stel dat je string 20 bij¬ 
voorbeeld "Printen Ja/Nee" wil afdruk¬ 
ken op het scherm, dan laad je bij¬ 
voorbeeld een register of geheugenlo- 
catie met het getal $14. Door middel 
van het geïndexeerd indirekt adresse¬ 
ren weet de 65xx precies het woord te 
vinden. 


Indirekt 

Deze truuk ligt zoals je waarschijnlijk 
al vermoedt bij het magische woord 
indirekt. Wat is nu indirekt ?? Dit is na¬ 
melijk hetzelfde als bij ons in het da¬ 
gelijkse leven bijvoorbeeld via een 
tussenpersoon bij de goede persoon 
terecht komen, dus indirekt. Dit is al 
eens eerder uitgelegd in een eerdere 
uitgave, maar om het geheugen weer 
wat op te frissen zullen we het nog 
een keer beknopt doornemen. We ne¬ 
men even als voorbeeld dat we met 
z’n allen aan het ballen gooien zijn, en 
we heten voor het gemak even Jan, 
Piet en Hans. Hans vraagt aan Piet 
"gooi mij die bal eens even toe!" Ver¬ 
volgens gooit Piet de bal naar Hans. 
Stel even dat deze bal de Data is, dan 
wordt deze bal/data rechtstreeks van 
Piet naar Hans gestuurd. Hier spreken 
we dus over een direkte overdracht, of 
absoluut. Stel dat Piet de bal niet had 
maar Jan. Dan roept Piet tegen Jan 
van gooi die bal even naar Hans, die 
hem vervolgens naar Hans gooit. Dan 
heeft Hans de bal/data indirekt gekre¬ 
gen. Wat moeilijker gesteld Hans 
heeft Piet geadresseerd, om data te 
sturen, maar krijgt deze data uiteinde¬ 
lijk van Jan via Piet. Op deze manier 
werkt het in de computer ook, alleen 
niet met die mooie namen, maar met 
kale nullen en enen. 


Nulpagina 

Voor het aanwijzen van het adres 
waar de woorden staan krijgen we 
deze keer ook te maken met de zoge¬ 
naamde nul pagina. Deze kreten zijn 
in het begin al eens aan de orde ge¬ 
weest, als je het niet 
meer weet is dat geen 
ramp, want we herhalen 
nog even in het kort wat 
ze betekenen. 

De nulpagina is het ge¬ 
deelte in het geheugen, 
waar het highbyte $00 is. 
Om data te halen van de 


nulpagina hoef je maar te adresseren 
met 1 byte, dus geen 2 byte zoals bij 
het absoluut adresseren. Hierdoor 
wordt een programma zowel sneller 
als korter. Wat we straks doen is voor¬ 
beelden plaatsen van indirekt adres¬ 
seren. Verwacht dus niet dat de wens 
van een volledig subroutine in vervul¬ 
ling gaat, want we gaan hier stapje 
voor stapje naar toe werken. Het eer¬ 
ste stapje dat we gaan doen is indirekt 
geïndexeerd adresseren met het Y re¬ 
gister. Er zijn namelijk twee manieren 
van adresseren, met het X register en 
met het Y register. We beginnen met 
het Y register omdat dit het dichtst het 
voorbeeld van de vorige keer bena¬ 
dert. Het indirekt adresseren zonder 
gebruik van registers is niet mogelijk. 

Bij de instructie LDA in de kolom indi¬ 
rekt staat een opcode B2 voor het in¬ 
direkt adresseren. Deze instructie 
werkt niet, want de 65xx herkent deze 
opcode niet als een instructie. Schrik 
dus niet als bij het experimenteren 
met deze instructie de 65xx vastloopt. 

Er is een heel groot verschil tussen 
het in dit geval adresseren met het X 
register of het Y register. Het verschil 
is het beste duidelijk te maken met 
een paar programma’s als voorbeeld, 
waarvan we achteraf weer het verhaal 
gaan doornemen wat hierboven staat. 
In de voorbeelden maken we het prin¬ 
cipe van de verschillende manieren 
van adresseren duidelijk. Op deze 
manier zal het je snel duidelijk zijn hoe 
het gaat werken. 

In ons voorbeeld gaan we een paar 
karakters uit het geheugen halen en 
ergens anders weer plaatsen. De ka¬ 
rakters die we ophalen zetten we ach¬ 
ter elkaar in het geheugen, en gaan 
deze op de geïndexeerde indirekte 
methode aanroepen. Het eerste pro¬ 
gramma is om drie willekeurige karak¬ 
ters die achter elkaar staan, op te ha¬ 
len en weer te plaatsen in het geheu¬ 
gen. Hier kun je met de monitor de op 
te halen getallen op de goede plek 
zetten, door in te voeren .m 1500 1550 
<return>. Dan op het juiste adres de 
juiste getallen invoeren, (tabel 3.) 

Zoals je ziet staan deze drie getallen 
vanaf adres $1500. In ons tweede 
voorbeeld gaan we deze zelfde getal¬ 
len ergens willekeurig uit het geheu¬ 
gen halen, en weer achter elkaar op¬ 
slaan, en dit met behulp van het X re¬ 
gister wat anders werkt. De adressen 
kun je weer invoeren met de monitor 
of met het hulpprogramma, (tabel 4.) 


tabel 2. 

. 0300 Voer de Naam in : 

(stopcode)Voer Adres in :(stopcode) 

I I 

Begin adres $300 
Begin adres $312 
van eerste woord 
van tweede woord 
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tabel 3. 

ADRES 

WAARDE 

tabel 4. 

ADRES 

WAARDE 


$1500 

$CA 


$1500 

$CA 


$1501 

$35 


$1550 

$35 


$1502 

$9C 


$1590 

$9C 


MNEMONIC 

KOMMENTAAR 

MNEMONIC 

KOMMENTAAR 

.a 1200 

LDA #$ CA 

laden getal 

.a 1200 

LDA #$ CA 

Iaden getal 


STA $ 1500 

opslaan getal 


STA $ 1500 

opslaan getal 


LDA #$ 35 

enz. 


LDA #$ 35 

enz. 


STA $ 1501 



STA $ 1550 



LDA #$ 9C 



LDA #$ 9C 



STA $ 1502 



STA $ 1590 



BRK 

terug naar monitor 


BRK 

terug naar monitor 


ADRES 

WAARDE 

$0070 

$00 

$0071 

$15 

$0072 

$50 

$0073 

$15 

$0074 

$90 

$0075 

$15 

MNEMONIC 

KOMMENTAAR 

LDA #$00 

laden getal 

STA $70 

opslaan getal 

LDA #$50 

enz 

STA $72 


LDA #$90 


STA $74 


LDA #$15 

1 keer getal laden 

STA $71 

drie keer 

STA $73 

achtereenvolgend 

STA $75 

opslaan 

BRK 

terug naar monitor 


Tenslotte moeten we nog wat gege¬ 
vens invullen op de nulpagina, omdat 
anders het geïndexeerd adresseren 
via de nulpagina niet werkt. Watje ziet 
is dat de adressen van de willekeurig 
in het geheugen liggende getallen hier 
achter elkaar komen te staan. Je kan 
ook deze waarden weer invullen met 
de monitor, maar ook met het hulppro¬ 
gramma. (tabel 5.) 

Houd er rekening mee dat eerst deze 
gegevens in het geheugen moeten 
staan omdat hij anders echt helemaal 
niets doet, dus niet eerst de program¬ 
maatjes intikken en kijken hoe alles 
verkeerd gaat. Want dat gaat het ge¬ 
garandeerd. Waar je in het voorbeeld 
even op moet letten is hoe je de as- 
sembler vertelt dat hij met indirekte 
adressen heeft te doen. Dit doe je 
door het adres tussen haakjes te zet¬ 
ten. Nu dus verder met ons voorbeeld. 

Zoals je ziet lijken de beide program¬ 
ma’s sprekend op elkaar, maar vergis 
je niet, want ze doen heel verschillen¬ 
de dingen. Het is dan ook het beste 
dat je zelf deze programma’s gaat uit¬ 
proberen om te kijken wat eigenlijk het 


verschil is. Zoals je uit 
het programma kan op¬ 
maken worden de resul¬ 
taten vanaf adres $1400 
in het geheugen ge¬ 
schreven. Om je niet he¬ 
lemaal in het duister te 
laten tasten nemen we 
het verschil tussen de 
beide instructies onder 
de loep. 

De instructie LDA 
($70),Y gaat via het vas¬ 
te nulpagina adres $70 
kijken op welk adres hij 
z’n waarde moet halen. 
In dit geval is dat adres 
$1500 waar hij begint. 
Het Y register zorgt ver¬ 
volgens voor de offset 
vanaf het adres $1500. 
Dus als het Y register 
geladen is met $00 dan 
wordt de waarde van adres $1500 ge¬ 
haald. Is de waarde in het Y register 
$01, dan wordt de waarde geladen 
van adres $1501 enzovoort. Bij de in¬ 
structie LDA ($70,X) gaat het net an¬ 
dersom. Hier werkt de offset op de 
nulpagina. Als in dit geval het X-regis- 
ter is geladen met 00, dan gaat hij op 
de nul pagina op adres $70 + de waar¬ 
de van het X register ($00) = $70 kij¬ 
ken op wat voor adres hij z’n getal 
moet halen. 

Dus in het kort. In dit geval kijkt de pro¬ 
cessor in de nul pagina op adres $70 
op welk adres hij z’n getal kan vinden. 
Het adres wat hij leest op $70 op de 
nul pagina is $1500. Voor het aanwij¬ 
zen van het volgende adres daar vlak 
achter moeten wij ons wederom reali¬ 
seren dat een adres uit 2 byte’s be¬ 
staat, dus als op adres $70 een volle¬ 
dig 2 byte adres te lezen was betekent 
dat, dat het eerstvolgende begin van 
een tweede adres 2 byte verder moet 
liggen, dus op $72. Je zal in het voor¬ 
beeld 2 ook zien dat het X register 2 
maal wordt opgehoogd. De reden 
hiervan zal je nu wel duidelijk zijn. Je 
I kan de beide verschillende instructies 


goed onderscheiden door een paar 
kleine details. 

Het indirekt adresseren via het Y re¬ 
gister is te herkennen door de Y bui¬ 
ten de haakjes, wat duidt op de offset 
die wordt uitgevoerd op het adres wat 
hij heeft gelezen op de nulpagina. Het 
indirekt adresseren via het X register 
is te herkennen aan de X binnen de 
haakjes wat duidt op het uitvoeren van 
de offset op de nulpagina zelf. De 
waarde’s ingevoerd tussen de haak¬ 
jes betekenen immers voor de assem- 
bler dat dit indirekte adressen zijn. 
Hier laten we het deze keer bij. Suc¬ 
ces bij het proberen, en tot de volgen¬ 
de keer, dan gaan we hier weer mee 
door. 


T. v/d L. 


INDIREKT GEÏNDEXEERD 
ADRESSEREN MET Y REGISTER 

MNEMONIC 

.a 1000 LDY #$ 00 

LDX #$ 00 
LDA ($70),Y 
STA $1400,X 
INY 
INX 

Cpx #$03 

BNE $(adres lda ($70),y) 

BRK 

INDIREKT GEÏNDEXEERD 
ADRESSEREN MET X REGISTER 

MNEMONIC 

.a 1000 LDX #$ 00 

LDY #$ 00 
LDA ($70,X) 

STA $1400, Y 
INY 
INX 
INX 

CPX #$06 

BNE $(adres lda ($70,x)) 

BRK 
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Rene Janssen maakte voor Commodore Info een korte strip. 
Omdat we dit een leuk idee vonden, drukken we hieronder deze 
strip op ware grootte af. Niet in de laatste plaats omdat de 
tekenstijl erg boeiend is. 

En waar het belangrijkste artikel deze keer over gaat, dat moet je 
zelf maar bepalen... 





















Basic Micro’s blijkt populair, want er hebben ons ook dit keer weer heel wat inzendingen 
bereikt. Mocht het gebeuren, dat die van jou er weer niet bij staat, stuur hem dan nog 
eens in. Het kan namelijk best zijn, dat er af en toe een in de vergetelheid of de prullebak 


raakt. 


Basic Micro’s 


M icro’s zijn, zo als het woord al zegt, klein. Het ge¬ 
beurt regelmatig dat we "Micro’s" ontvangen die 
echt te groot zijn om af te drukken, omdat ze een hal¬ 
ve pagina zouden opslokken. 

Die programma’s worden zelden gepubliceerd, omdat de 
mensen van de Listing-rubriek ook niet van plan zijn om 
zelf vele vellen vaak handgeschreven tekst over te typen, 
om vervolgens de fouten te gaan uitzoeken. Beter is het 
om deze programma’s op tape of disk te zetten en dan op 
te sturen voor de gewone listing rubriek. 

Hieronder volgt echter - bij wijze van experiment - een 
programma dat we in twee delen publiceren. 

Deze keer dus de eerste helft. Het is een programma dat 
het Wilhelmus laat horen. Het is geschreven door Herman 
Mouthaan uit Zwolle en geschikt voor de C-64, maar het 
moet eventueel met wat wijzigingen ook kunnen lopen op 
de C-128. 

In het programma zaten helaas drie ernstige fouten in de 
DATA-regels. Dit is dan ook de aanleiding om nog eens 
te vragen om grote zorgvuldigheid bij het overtypen of 
overschrijven van ingezonden programma’s, een listing is 
echt beter. 

10 PRINTCHR$(147)CHR$(5):INPUT"SNELHEID" 

;SN:SN=SN/3:IFSN<.50RSN>2THENRUN 
20 S=54272:FORL=0TO23:POKES+L,0:NEXT:POK 
ES+5,9:POKES+6,0:POKES+24, 15 
30 DIMHF(61),LF(61),DR(61):FORP=0TO61:RE 
ADHF(P),LF(P),DR(P):HF=HF+HF(P) 

40 LF=LF+LF(P):DR=DR+DR(P):NEXT 
50 IFHFO8440RLFO84800RDRO29850THENPRI 
NT"FOUT IN DATA!":PRINTHF,LF,DR:END 
60 FORP=0TO61:POKES+1,HF(P):POKES,LF(P): 

POKES+4,33:F0RL=1T0DR(P)STEPSN:NEXT 
70 POKES+4,32:FORT=lTO50:NEXTT,P 
80 DATA9,104,500,12,143,500,12,143,500,1 
4,24,250,15,210,250,16,195,250,14,24 
90 DATA250,15,210,500,14,24,250,15,210, 
250,16,195,500,15,210,500,14,24,250, 12 
100 DATA143,250,14,24,500,12,143,1750 

De rest van de DATA-regels van dit Wilhelmus komt dus 
de volgende keer aan bod. 

SimpStat 

Een grafiekje is altijd leuk, dus hier komt weer eens een 
Micro die er een produceert. Het programma heet Simp¬ 
Stat en is geschreven voor de C-16 en ingestuurd door R. 
Beijk uit Boxmeer. De in te voeren getallen zijn niet ge¬ 
bonden aan grenzen. 



10 SCNCLR:INPUT"HOEVEEL GETALLEN";T:DIMA 
(T):L=99999:H=-L:S=0:F0RI=1T0T 

2 0 INPUTN:A(I)=N:S=S+N:IFN>HTHENH=N 

30 IFN<LTHENL=N 

40 NEXT:F=150/H:D=INT(270/(T-l)):G=S/T: 
GRAPHIC2,1 

50 DRAW,30,10TO30,150T0300, 150T030,150:F 
ORI=2TOT:DRAW,+D,150TO+0,-3:NEXT 

60 DRAW,30,150-INT(A(l)*F):FORI=2TOT:DRA 
W, +0,+0TO+D,150-INT(A(I)*F) :NEXT 

70 PRINT"GEMIDDELDE ="G:PRINT"HOOGSTE =" 

H" EN LAAGSTE ="L 

Van dezelfde auteur kregen we zijn visie op het weer van 
1987 toegestuurd. De naam van de Micro: druppels. Of 
zou 'sneeuw’ beter zijn? 

10 SCNCLR:VOL8:B=0:FORI=lTO40:POE4031+I, 
102:NEXT:FORT=lTO960 

20 B=3072+INT(RND(1)*40):IFPEEK(B)<>32TH 
EN20 

30 POKEB,81:B=B+40:IFPEEK(B)=32THENPOKEB 
-40,32:GOTO30 

40 SOUND1,INT(B/4),2:NEXT:GOTO10 


Scroll 

Het volgende programma voor de C-64 kun je maar be¬ 
ter voor het runnen saven als je het wilt bewaren, want 
daarna kan het niet meer zonder cartridge. Scroll is niet 
helemaal een juiste benaming, maar beter wisten wij het 
ook niet. Probeer ook eens de beide of een van beide 
waardes 238 in regel 50 te veranderen in 206. De check- 
sum wordt dan 7035, respectievelijk 7067. 

10 T=0:FORA=0TO55:READB:T=T+B:POKE49152+ 

A,B:NEXT 

20 PRINTCHR$ (147) : IFTO7099THENPRINT"DAT 
A ERROR!":END 

30 SYS49152:DATA169,44,141,0,128,141,2,1 
28,169,192,141,1,128,141,3,128,169,195 
40 DATA141,4,128,169,194,141,5,128,169, 2 
05,141,6,128,169,56,141,7,128,169,48 
50 DATA141,8, 128,76, 22 6, 252,238,32,208,2 
38,33,208,234,234,234, 76,44,192 

Split-screen 

Micro’s voor de C-128 met machinetaal ontvangen we 
niet zo vaak, vandaar dat we nu de kans grijpen om er 
twee af te drukken. Ze zijn afkomstig van Bas van Peype 
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uit Castricum. De eerste heeft een Split-screen tot gevolg, 
de tweede veroorzaakt bij elke toetsaanslag een ander 
geluidje. 

10 C=0:FORT=0TO30:READA:C=C+A:POKE4864+T 
,A:NEXT:IFC<>3490THENPRINT"FOUT IN 
DATA" : END 

20 SYS4864:NEW:DATA120,169,13, 141,20,3, 1 
69,19,141,21,3,88,96,165,216,208,7,169 
30 DATA1,133,216,76,101,250,169, 0,133,21 

6.76.101.250 

10 C=0:FORT=0TO51:READA:C=C+A:POKE4864+T 
, A: NEXT : IFCO5821THENPRINT"F0UT IN 
DATA":END 

20 SYS4864:NEW:DATA120,169,24,141,20,3, 169 
,19,141,21,3,169,15,141,24,212 
30 DATA141,5,212,141, 6, 212,88, 96, 165,213 
,201,88,208,8,169,0,141,4,212,76,101 
40 DATA250,141,0,212,141,1,212,169,33,14 

1.4.212.76.101.250 

Digitaal 

Voor de mensen onder ons die interesse hebben voor hoe 
computers nou echt rekenen, volgt hier een demonstratie 
van optellen zonder optellen, gemaakt door Rob Hagel- 
stein uit Doetinchem. Hierbij wordt gebruik gemaakt van 
het principe van de Full Adder, dat is een optelschakeling 
die drie bits bij elkaar optelt. Typ overigens in plaats van 
" A " een "pijltje omhoog". Het bereik van de in te voeren 
getallen loopt van -32768 to 32767. 

10 CLR:DIMD(15,2):INPUT"A,B ";A,B 
20 FORE=0TOl:FORT=0TO15:D(T,E)=(A/2~T)AN 
Dl:NEXT:A=B:NEXT 
30 FORT=0TO15:A=D(T,0):B=D(T,1) 

40 U=(NOT((NOTA)ANDBAND(NOTC)))AND(NOT(A 
AND(NOTB)AND(NOTC))) 

50 U=UAND(NOT((NOTA)AND(NOTB)ANDC))AND(N 
OT(AANDBANDC)):U=NOTU 
60 C=NOT((NOT(AANDB))AND(NOT(AANDC))AND( 
NOT(BANDC))) 

70 D(T,2)=U:X=X+U*2 A T:NEXT:IFU=1THENX=-( 
(NOT(X-65536))+1) 

80 PRINT:FORE=0TO2:FORT=15TOOSTEP-1:PRIN 
TD(T,E)CHR$(157);:NEXT 

90 PRINT:IFE=1THENPRINT" - 

- 

100 NEXT: PRINT: PRINT"DE DECIMALE 
UITKOMST IS"X 

Tekeningen 

Sander Jansen uit Raalte zond ons een Micro die het doet 
op de C-16, Plus/4 en C-128. Het programma tekent di¬ 
verse kronkelfiguren. De inzender noemt het zelf Teken¬ 
fractals, maar die benaming is niet helemaal correct. 

10 SCNCLR:GRAPHIC3,1:GRAPHIC1:COLORO,1:C 
OLOR2,1:COLOR4,1:FORE=0TO650STEP5 
20 DRAW1,50,50T0250,E:NEXT:GOSUB60:FORB= 
0TO250STEP5:CIRCLE1,210,B, 30:NEXT 
30 GOSUB60:FORN=0TO80:BOX1,250,250,N*10, 
100,50:NEXT:GOSUB60:FORX=0TO995STEP3 


40 CIRCLE1,200,100,80,X:NEXT:FORA=0TO100 
STEP5:BOX1,100,100,50,50,A:NEXT:GOSÜB60 
50 F0RW=1T0125STEP5:CIRCLE1,150,75,W,30: 
NEXT:END 

60 FORY=0TO1500:NEXT:SCNCLR:RETURN 

Schermflitsers 

De routinetjes om flitsende beelden te krijgen lijken ontel¬ 
baar. 

Bennie Looijaard (12 jaar) uit Eindhoven stuurde een vrij 
korte flitser in. 

10 POKE53265,11:FORQ=49152TO49160:READA: 

POKEQ,A:C=C+A:NEXT:IFQ=119 0THENS YS 4 9152 
20 PRINT"?DATA ERROR":DATA236,32,208,206 
,32,208,76,0,192 

Ook onze eigen bijdrage veroorzaakt strepen op het 
beeld. 

10 FORT=0TO14:READA:POKE49152+T,A:C=C+A: 

NEXT:IFC=1530THENSYS49152 
20 PRINT"?DATA ERROR":DATA120,169,11,141 
,17,208,78,18,208,46,32,208,76,6,192 

Printer-lineaal 

Wie vaak moet tellen uit hoeveel tekens een geprinte re¬ 
gel bestaat, kan veel baat hebben bij de lineaal die de vol¬ 
gende Micro maakt. Hij werd ons toegestuurd door Harry 
Eyck uit Neer. Printen, uitknippen en op een kartonnetje 
plakken en je hebt een prachtige positie-teller. Simpel, 
maar zeer handig. 

10 OPEN4,4:CMD4:F0RI=1T08: 

PRINT#4,"0123456789";:NEXT:CLOSE4 

Binaire sprites 

Het ontwerpen van sprites kan zeer tijdrovend zijn. Het 
volgende programma van Sander van der Kooij uit Bleis- 
wijk lost dit op. Het ontwerpen van sprites kan hiermee 
ook in de DATA-regels gebeuren in plaats van op papier. 
De routine voor het omzetten van 7-bits binair naar deci¬ 
maal staat in regel 20. 

10 V=53248:POKEV+21,1:POKE2040,13:POKEV, 

100:POKEV+l,100:FORN=0TO62 
20 READBI$: DE=0 :FORB=7TOOSTEP-1:DE=DE+VA 
L (MID$ (BI$, 8-B, 1) ) *2' N B:NEXT 
30 POKE832+N,DE:NEXT 
100 DATA00001100,01100110,00110000 
etcetera... 


Peter Broekhuizen 


PS. Voor uw inzendingen en alle post: 

Postbus 43048,1009 ZA, Amsterdam. 
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De GEOS wereld blijft maar groeien. In minder dan twee jaar is GEOS uitgegroeid tot 
een complex geheel van professionele, maar vooral ook veelzijdige programma’s. De 
GEOS programmaserie stelt u in staat uw computerervaring verder uit te diepen. En 
van de nieuwste applicaties uit de GEOS familie is GeoFILE, een geavanceerd data¬ 
base programma. 


o o 


o o 



Gegevensbeheer onder GEOS 


G eoFILE is het gestandariseerde bestandsbeheer-systeem waarmee u uw 
gegevens kunt organiseren en opslaan in zogenaamde formulieren die 
u zelf ontwerpt naar eigen inzicht. Nadat u zo een formulier, die doorgaans 
worden aangeduid als forms, heeft ontworpen vult u ze op een eenvoudige 
manier met gegevens. De gegevens worden automatisch gesorteerd op de 
door u aangegeven rubriek. 


ÖÖOQODOO O O O O 

GEOFILE 


GeoFILE biedt vele mogelijkheden 
om de opgeslagen gegevens op te 
zoeken en als bruikbare informatie te 
presenteren, zowel op het scherm als 
op de printer. Hieronder zal (slechts) 
een aantal van de vele mogelijkheden 
welke GeoFILE te bieden heeft nader 
worden bekeken. 

Zoals gezegd maakt GeoFILE gebruik 
van forms (formulieren) om de gege¬ 


vens in de database (gegevensbe¬ 
stand) op te slaan. Naast een hoofd¬ 
formulier (Master form ) met daarin 
een eigen ontworpen lay-out, bestaat 
de mogelijkheid om nog eens 15 sub 
lay-outs binnen de database te ont¬ 
werpen. Deze sub lay-outs bevatten 
gedeelten van het hoofdformulier. Met 
behulp van deze sub lay-outs kan na¬ 
derhand een zoekactie of een afdruk- 
specificatie worden vervaardigd. 


Afgezien van een aantal zeer geavan¬ 
ceerde mogelijkheden, is het werken 
met GeoFILE een prettige ervaring 
wanneer men gegevens uit een data¬ 
base wilt uitwisselen met een andere 
GEOS-applicatie. Zo kan men een 
mail-merge samenstellen voor ge¬ 
bruik met het tekstverwerkende pro¬ 
gramma GeoWRITE. Of men maakt 
een "text-scrap" om in de spreadsheet 
GeoCALC te laten integreren. Vanuit 
het tekenprogramma GeoPAINT kan 
men een database voorzien van plaat¬ 
jes. Kortom, de combinatie van Geo¬ 
FILE met andere GEOS applicaties 
vergroot de bruikbaarheid en veelzij¬ 
digheid van GeoFILE. 

Het programma wordt het geleverd op 
diskette met een Engelstalige handlei¬ 
ding. Op de bijgeleverde diskette 
staan naast de GeoFILE applicatie 
een nieuwe versie van GeoMERGE. 
Daarnaast zijn nog een aantal oefen¬ 
bestanden opgenomen, die u samen 
met de handleiding kunt doorlopen, 
teneinde de mogelijkheden van het 
programma onder de knie te krijgen. 

Het GeoFile bestands-ontwerp. 

De basis van elk bestand wordt ge¬ 
vormd door de forms (formulieren). 
Deze forms bevatten de rubrieken 
waarin de gegevens worden opgesla¬ 
gen. U ontwerpt deze forms zelf op 
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een eenvoudige wijze. Nadat de form- 
pagina op het scherm is verschenen 
gaat u de rubrieken (fieids) in uw be¬ 
stand definiëren. Er kunnen maximaal 
64 rubrieken op een form-pagina wor¬ 
den vastgelegd. Elk field wordt be¬ 
noemd met een field-naam. Zowel de 
naam als het later in te voeren gege¬ 
ven worden in een field vastgelegd. 
Tijdens het ontwerpen van een form 
kan gebruik gemaakt worden van de 
mogelijkheid om de fieids automatisch 
te laten richten, zodat een symme¬ 
trisch geheel wordt gevormd. Tijdens 
het ontwerp wordt ook het sort-field 
gekozen. Dit is de rubriek die GeoFI- 
LE gebruikt om de gegevens op te 
sorteren. Naast het ontwerp van het 
hiervoor beschreven hoofd-formulier 


kunnen maximaal 15 sub lay-outs 
worden gecreeerd. Deze bevatten ge¬ 
selecteerde rubrieken uit het hoofd¬ 
formulier. 


Voorbeeld 

Een sub lay-out kan naderhand wor¬ 
den gebruikt om gedeelten van het 
hoofd-formulier samen te stellen voor 
bijvoorbeeld een uitdraai op de prin¬ 
ter. Dit kan worden toegelicht met een 
voorbeeld. Stel u heeft een bestand 
ontworpen waarin u alle gegevens 
van uw kennissen heeft opgeslagen. 
Indien u nu een telefoonlijst of een 
adreslijst wilt laten printen, hoeft u 
slechts eenmaal de fieids die u daar¬ 
bij afgedrukt wilt hebben in een sub 
lay-out te plaatsen. Met behulp van 
deze sub lay-out worden dan alleen 
die rubrieken afgedrukt welke u heeft 
geselecteerd. 

Met behulp van de zogenaamde page 
preview kunt u het uiteindelijke resul¬ 
taat van een form pagina bekijken. 

Invoeren en beheren van 
gegevens. 

Door middel van de data entry mode 
kunt u gegevens in de database in¬ 


voeren. U wijst met het aanwijspijltje 
een rubriek (field) aan en activeert 
hem door eenmaal op de muis- of 
vuurknop van de joystick te klikken. 
Vervolgens typt u met behulp van het 
toetsenbord het gegeven in. Een voor¬ 
deel is, dat als het in te voeren gege¬ 
ven langer is dan het field, deze toch 
in zijn totaliteit wordt opgenomen. U 
kunt de ingevoerde gegevens bekij¬ 
ken met de pijl-iconen, die bovenin het 
beeldscherm zijn weergegeven. Het 
invoeren van uitsluitend numerieke 
gegevens naast een alfanumerieke 
invoer is ook als voorwaarde in een 
field op te geven. 

Raadplegen van gegevens. 

Door een search-form (zoek¬ 
formulier) te definiren kunt u 
op eenvoudige wijze gege¬ 
vens op laten zoeken en even¬ 
tueel wijzigingen aanbrengen. 
Er wordt bij GeoFILE een on¬ 
derscheid gemaakt tussen 
conditioneel zoeken en het 
raadplegen van gegevens met 
behulp van zogenaamde "wild 
cards". Het conditioneel zoe¬ 
ken is verreweg de eenvoudig¬ 
ste methode. Hierbij vult u in 
een rubriek de conditie in 
waarop gezocht moet worden. 
U laat vervolgens door GeoFI¬ 
LE zoeken, door een van de 
gezichts-iconen te kiezen. 

Bij het conditioneel zoeken kan ge¬ 
bruik gemaakt worden van condities 
als groter dan, kleiner dan, groter/klei¬ 
ner of gelijk aan of ongelijk aan. Het 
definiëren van combinaties met deze 
condities behoort eveneens tot de mo¬ 
gelijkheden. 

Om het zoeken in een bestand enigs¬ 
zins te beperken bestaat de mogelijk¬ 
heid om gebruik te maken van zgn. 
"wild cards". Hiervoor worden het ? 
(vraagteken) en het * (asteriks) ge¬ 
bruikt. U wilt bijvoorbeeld iemand in 
uw bestand opzoeken die Jansen 
heet. U weet echter niet meer zeker of 



de naam Jansen met een of twee let¬ 
ters S werd geschreven. U voert dan 
in de te zoeken rubriek de naam Jans* 
in. Het programma zal na het starten 
van de zoek-actie alle Jansens met 
zowel n S of met twee letters S tonen. 
Of u zoekt naar een postcode, maar u 
weet de letters niet meer. U voert dan 
bijvoorbeeld 1781 ?? in. Het program¬ 
ma zal dan niet alleen de door u ge¬ 
zochte postcode vinden, maar ook ge¬ 
gevens als 1781 33 en andere postco¬ 
des die beginnen met 1781. 

Met behulp van deze methoden kun¬ 
nen zeer complexe zoekspecificaties 
worden gedefinieerd. Het is zelfs mo¬ 
gelijk om in een zoekspecificatie niet 
alleen de zoekargumenten te defini¬ 
ren, maar ook op te geven welke ru¬ 
brieken dan automatisch gewijzigd 
moeten worden. Ook het bijwerken 
(updaten) van opgeslagen informatie 
kan naast de handmatige methode, 
automatisch door GeoFILE worden 
gedaan, door middel van de zoek- en 
vervangfunctie. 

Pr intmogelij kheden 

Uiteindelijk zult u lijsten willen produ¬ 
ceren om uw actuele gegevens bij de 
hand te hebben. GeoFILE biedt hierin 
vele mogelijkheden en variaties. Zo 
bestaat de mogelijkheid om meerdere 
formulieren op een vel papier geprint 
te krijgen. Daarnaast kunt u kiezen uit 
etiketten, indexkaarten of gewoon uit¬ 
voer op kettingpapier. Ook het laten 
printen in kolommen behoort tot de 
mogelijkheden. 

Wat u op uw afdruk wilt heb¬ 
ben beslist u zelf met behulp 
van de sub lay-outs die u eer¬ 
der had samengesteld. Verder 
biedt de print-mode de moge¬ 
lijkheid om rubrieksnamen af 
te drukken of weg te laten, en 
of de rubrieks-omlijning al dan 
niet moet worden afgedrukt. U 
kunt uiteindelijk één, meerdere 
of alle opgeslagen formulieren 
laten printen. Kortom u be¬ 
schikt over een volwaardig da- 
tabase-programma. 
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GeoFILE is een krachtige database 
die als concurrerend gezien kan wor¬ 
den ten opzichte van de reeds be¬ 
staande databases voor de Commo¬ 
dore 64. Alles wat men van een 
GEOS geörienteerd programma mag 
verwachten biedt GeoFILE. De een¬ 
voud waarmee men een bestand ont¬ 
werpt, vult en raadpleegt wordt na¬ 
tuurlijk verhoogd door het werken met 
een DeskTop. Alle commando’s zijn 
te selecteren uit pull-down menu’s en 
sub-menu’s. Daarnaast is het gebruik 
van Windows en iconen op een Com¬ 
modore 64 op zich al een prettige er¬ 
varing. GeoFILE draait standaard op 
een CBM 64 of een Commodore 128 
in de 64-mode. Berkeley Softworks 


Mressen 

Bestand 
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heeft echter al meege¬ 
deeld dat de echte 128- 
versie van GeoFILE bin¬ 
nenkort leverbaar is. 


Conclusie 

Er kan worden gesteld 
dat GeoFILE een flexi¬ 
bel en eenvoudig te le¬ 
ren pakket is. Het kost 
niet veel moeite om de 
vele gebruiksmogelijk¬ 
heden in een relatief 
korte tijd meester te worden. Enig be¬ 
grip betreffende gegevensbeheer is 
echter aan te bevelen, maar dat geldt 
natuurlijk ook voor ander geavanceer¬ 
de databasepakketten. 

Naast al deze mogelijkheden valt ook 
de snelheid waarmee het program¬ 
ma werkt op. Als enige nadeel kan 
worden opgemerkt dat als u andere 
sorteer-rubrieken selecteert het pro¬ 
gramma enige tijd nodig heeft om de 
gegevens anders te rangschikken. 

Met GeoFILE bent u in staat om ge¬ 
gevens van allerlei soort bij te hou¬ 
den, op een wijze die u alleen van de 
veel duurdere computers mag ver¬ 
wachten. En in combinatie met ande¬ 


ACHTERHAAM : 

ADRES : 

TELEFÜONNR. : 

Beek., uon 

Oude Slingeficmn SS'? 

810 - 889640 

Jansen 

Lange Straat 2 

03410-77390 

Janssen 

Korte lueglaan 238 

02210 - 8837 


re GEOS geörinteerde programma’s 
bent u in staat om omvangrijke rap¬ 
porten te produceren. 

De prijs van GeoFILE zal in Nederland 
waarschijnlijk rond de ƒ 100,- komen 
te liggen, waarmee ook al weer blijkt 
dat dit programma zeker een gunstige 
prijs/prestatie verhouding heeft. 

Met deze toepassing op de Commo¬ 
dore 64 is nu een ware opmars begon¬ 
nen binnen de grafische mogelijkhe¬ 
den die deze computer ons biedt. Een 
goed doordacht concept dat met 
name uitmunt door zijn eenvoud en 
veelzijdigheid. 

Bert Venema 


DISKETTEVOORDEEL 


Merk en type Prijs p. stuk bij afname van 

20-90 100-240 250-490 500-1000 


3M DISKETTES 


5Vi"DS/DD48 tpi 

2,40 

2,30 

2,20 

2,10 

5Vi"DS/DD99 tpi 

3,90 

3,80 

3,70 

3.60 

5V4”DS/HD96 tpi 

4,50 

4,30 

4,10 

3,90 

3'/2"DS/DD 135 tpi 

4,50 

4,30 

4,10 

3,90 

3V 2 ”DS/HD 135 tpi 

11,00 

10,75 

10,50 

10,25 


(IBM-PS2) 

GOLDRING DISKETTES 


(standaard verpakt per tien stuks 

in luxe cassette) 


5'/4”DS/DD 48 tpi 

2,35 

2,30 

2,25 

2,20 

SW'DS/DD 96 tpi 

3,50 

3,40 

3,20 

3,00 

5V4”DS/HD 96 tpi 

4,20 

4,10 

3,90 

3,80 

3V 2 ”DS/DD 135 tpi 

4,20 

4,10 

3,90 

3,70 

3V 2 ”DS/HD 135 tpi 
(IBM-PS2) 

13,00 

12,50 

12,00 

11,50 

NASHUA DISKETTES 



5V4"DS/DD 48 tpi 

1,50 

1,45 

1,40 

1,35 

5'/4”DS/DD96 tpi 

2,50 

2,45 

2,40 

2,35 

5'/4”DS/HD 96 tpi 

3,50 

3,40 

3,30 

3,20 

3V 2 ”SS/DD 135 tpi 

3,20 

3,10 

3,00 

2,90 

3V 2 ”DS/DD 135 tpi 

4,10 

4,00 

3,75 

3,55 


* Bovenstaande prijzen zijn ex. 20% btw, Levering vanaf 
f 125.- franko thuis. Lagere orders plus 1 10.- 
vrachtkosten 


DISKETTEBOX GRATIS! 



Indien u binnenkort bij ons een bestelling 
doet van minimaal f 150.- ex. btw, 
ontvangt u van ons ter kennismaking deze 
luxe diskettebox voor maar liefst 100 
diskettes GRATIS! 

* Deze aanbieding geldt zolang de voorraad 
strekt en 1 box per klant. 

NU BESTELLEN - SNEL IN HUIS! 

U heeft uw bestelling binnen enkele dagen 
in huis. Bestellen kan telefonisch of 
schriftelijk. Vermeld duidelijk type en 
aantal en profiteer van onze 
kennismakingsaanbieding: de gratis 
diskettebox! 

Goldring is tevens leverancier van 
computers, printers, datacartridges, 
inktlinten, kettingformulieren 


Merk en type Prijs per stuk bij afname van 

20-90 100-240 250-490 500-1000 

NEUTRALE DISKETTES 

ÖW’DS/DD 48 tpi 1,00 0,83 0,80 0,76 

3Vz”DS/DD 135 tpi 2,75 2,65 2,55 2,50 

* Neutrale diskettes zijn verpakt per 10 
stuks, ingeseald in witte kartonnen box. 

* Bovenstaande prijzen zijn ex. 20% btw 
Levering vanaf f 250.- franko 

Lagere orders plus f 25.- vrachtkosten 


SPECIALE PRIJZEN VOOR 
DEALERS, COMPUTERCLUBS 
EN OVERHEID! 

O K@ll€PiHiiniD e 


Postbus 344 - 1250 AH LAREN 
Tel. 02153-13417 / FAX: 89152 
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Het geheel van deze (al) 21 lessen Basis Basic vormt samen een goede basis om met 
het programmeren van de Commodore in Basic uit de voeten te kunnen. Jan Bodzin- 
ga behandelt stap voor stap de juiste wegban het programmeren. 

Deze keer zullen we samen met hem eens kijken hoe we op een aardige manier data 
in onze software kunnen verwerken. En dan bedoelen we niet direct computerdata 
maar eerder hebben we kalenderdata op het oog. 


Basis Basic 


deel 21: Van datum naar data 



irr 

utuu \ 


WyWu 

31 



H et omgaan met computersoftware, ook op de schaal waarmee met de 
Commodore wordt gewerkt, is in de zakelijke omgeving voor een groot 
deel tijdsafhankelijk. Dat betekent dat voor veel bewerkingen van de com¬ 
puter het erg belangrijk is te weten op welke dag van het jaar de gegevens 
worden ingevoerd of verwerkt. De algoritmes, die voor het werken met da- 
tumgegevens zijn uitgedacht liegen er dan ook niet om. Het grote probleem 
schuilt daarbij in het feit, dat juist de dagen van het jaar, de maanden en de 
tellingen per dag, week en maand niet erg gestructureerd zijn. We zullen 
daarom ook voor (Commodore) Basic in deze aflevering een paar tijdsbe- 
sparende datum-routines doornemen. 


De dag van het jaar waarin we leven, 
is voor iedereen van belang. Zonder 
afspraken hierover is het bijna niet 
mogelijk een goede samenleveing zo¬ 
als we die kennen te hanteren en in 
stand te houden. Zolang het eenvou¬ 
dige zaken betreft als ’lk zie je mor¬ 
gen’ of ’kom over twee dagen maar te¬ 
rug’ dan zal het voor ieder van ons 
nog wel onthouden zijn; maar zodra 
we een veelvoud van dergelijke af¬ 
spraken in ons op moeten nemen la¬ 
ten we het toch vroeg of laat afweten. 
Daarom is het erg nuttig -en al 
eeuwenoud- dat we te maken hebben 
met een kalender. 

We zullen niet al te diep ingaan op het 
fenomeen, dat onze kalender niet is 
gebaseerd op een tien- of andertallig 
stelsel. En die reden is natuurlijk niet, 
dat er in die tijd geen computers be¬ 
stonden. De natuurlijke beweging van 
de zon ten opzichte van maan en aar¬ 
de vroeg eenvoudigweg om een com¬ 
plex en ongestructureerd kalendari- 
um, waardoor we uiteindelijk, met het 
fors bijstellen van onnauwkeurighe¬ 
den te maken hebben met een redelijk 
sluitende tijdrekening. 

Het is daarbij aan onze generatie om 
gegeven de omstandigheden onszelf 
en ons computertijdperk maar aan te 
passen aan deze onregelmatige tijd¬ 
rekening. Veel kundige wetenschap¬ 
pers zijn ons daarbij voorgegaan met 
het uitdenken van aardige formules, 
waardoor toch nog enige lijn te ont¬ 
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dekken valt in het rekenen met tijd en 
datum. 


Excursie 

Voor we verdergaan met het dateren 
van computersoftware, lijkt het me 
leuk een andere onregelmatigheid, 
waar we dagelijks mee te maken krij¬ 
gen wat beter te bekijken. 

Hoewel we er geen van allen vaak bij 
stil staan is ook ons geldsysteem niet 
al te regelmatig. Hoewel gelukkig ge¬ 
baseerd op het decimale stelsel, ken¬ 
nen we bij het monetaire systeem in 
ons land toch verschillende groothe¬ 
den. Vanf de cent - die ook al weer 
verdwenen is) naar het biljet van 1000 
gulden liggen een grote hoeveelheid 
munten en waardepapieren, waarbij 
de intervallen tussen de oplopende 
reeks nogal verschillend zijn. Ook 
daarmee komen we normaal gespro¬ 
ken bij een computer nogal in de pro¬ 
blemen. 

Laten we het maar eens op een rijtje 
zetten, hoeveel verschillende gelds- 
eenheden we in Nederland kennen. 
Als we ook de cent nog mee laten 
doen, en we beginnen onderaan, dan 
ziet de tabel er zo uit: 


cent 0.01 

stuiver 0.05 

dubbeltje 0.10 

kwartje 0.25 

gulden 1.00 

rijksdaalder 2.50 
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vijf gulden 

5.00 

tientje 

10.00 

vijfentwintig 

25.00 

vijftigje 

50.00 

honderdje 

100.00 

vuurtoren 

250.00 

duizendje 

1000.00 


Als je ’t optelt een aardige som, en 
één oogopslag leert, dat het triest ge¬ 
steld is met de structuur. Waarom 
geen munt van 50 cent, maar wel van 
vijftig gulden en weer niet van 500 gul¬ 
den? Raadsel waar we geen direct 
antwoord op kennen, maar wel weten 
dat we ze niet hebben. 

Het aardige is nu een computerpro¬ 
gramma te bedenken, dat in staat is, 
alle bedragen die vanaf het toetsen¬ 
bord worden ingevoerd om te rekenen 
naar de minimale hoeveelheid bank¬ 
papier en munten dat nodig is om het 
ingevoerde bedrag samen te stellen. 

Geldige Basic 

Het werken met geld geeft ons de ge¬ 
legenheid een aardige routine uit te 
werken, waarmee we de computer 
kunnen laten bepalen hoeveel stuks 
van iedere eenheid in het muntenstel- 
sel in een bepaald bedrag gaan. De 
basisroutine om dit te kunnen bekijken 
is in feite helemaal niet moeilijk, je 
moet er alleen even opkomen. 

Het programma dient als eerste te we¬ 
ten hoeveel verschillende geldwaar¬ 
den we hebben en uiteraard welke 



waarde ze stuk voor stuk vertegen¬ 
woordigen. De simpelste manier om 
dat te doen is in dit geval uiteraard een 
serie DATA opdrachten, te meer om¬ 
dat de waarde en de hoeveelheid van 
onze munten en bankpapier niet al te 
vaak veranderen. 

De routine om uit te rekenen hoeveel 
van ieder in een bepaald bedrag 
gaan, vereist vooraf enig overleg. Hoe 
moet dit worden aangpakt. 

In een normale situatie zouden we vrij 
snel te weten komen (zonder compu¬ 
ter) hoeveel van ieder in een bedrag 
gaan. De computer dient het pro¬ 
bleem gestructurrd te krijgen voorge¬ 
schoteld. 

Het geheim zit erin, dat we de DATA 
opdrachten, die in een numerieke ar- 
ray worden ingelezen, gesorteerd 
van hoog naar laag hebben neerge¬ 
zet. Daardoor vertegenwoordigt het 
eerste element in de array altijd de 
hoogste waarde. 

Stel we hebben een bedrag van hon- 
derdtwaalf gulden, waar we deze som 
op willen loslaten, zonder computer¬ 
programma, maar wel met de juiste 
structuur. 

We beginnen dan te kijken of de groot¬ 
ste waarde (ƒ1000 in het bedrag past. 
Dat is niet het geval. Ergo nul x 1000. 
Als tweede is het 250-biljet aan de 
beurt, en ook dat past niet in de 112 
gulden. De derde (ƒ100) heeft meer 
geluk, want daar kunnen we één van 
kwijt. We hebben dus nu 100 === 1. 
Dan houden we nog 12 gulden over 
om te verdelen, waarbij we verder 
zonder succes kijken naar de briefjes 
van 50 en 25 gulden. Na het tientje, 
die wel kan, houden we nog twee gul¬ 
dens in de pot, die uiteindelijk onder 
de guldens zullen worden gezet. 

Wat gebeurt in werkelijkheid bij deze 
manier van afchecken? 

Als eerste wordt het bedrag gedeeld 
op de mogelijke geldswaarde. Daar¬ 
door wordt het aantal bepaald. Vervol¬ 
gens wordt het bedrag verminderd 
met het aantal X de waarde, waarna 
het restantbedrag overblijft. 

Deze procedure herhaalt zich, totdat 
het hele bedrag is opgedeeld, en alle 
mogelijkheden zijn getest. Bekijk het 
programma maar eens: 

500 REM DATA GELDWAARDEN 
510 DATA 1000,250,100,50,25 
520 DATA 10, 5, 2.5,1.0 
530 DATA 0.25, 0.10, 0.05, 0.01 
540 DATA -1 

Als eerste de DATA van geldswaar¬ 
den. Let erop, dat deze in aflopende 
volgorde in de regels zijn gezet. Ge¬ 
beurt dit niet, dan geeft het program¬ 
ma weinig hoop op een juiste bereke¬ 
ning. De volgorde is essentieel. 


10 REM GELD 
20 REM 

30 REM Omrekenen bedragen 
40 REM in geldseenheden. 

50 

60 (c) Commodore-lnfo / JB 

90 

100 REM initialisatie 
110 DIM GD(20) :REM 
GELDWAARDEN 
115 DIM TT(20) :REM SOORTEN 
120 BD= 0 :REM Bedrag 
130 K = 0 :REM Luswaarde 
140 TELLER = 1 :REM TELLER 
aantal 

Tot zover weinig nieuws. De array 
GD(xx) dient voor het opslaan van de 
respectievelijke waarde, TT(xx) wordt 
gebruikt om de hoeveelheid die per 
bedrag bij een bepaalde waarde hoort 
(0 of meer) in te bewaren. Standaard 
staan deze beide arrays op 0. 



210 REM 

220 READ GD(TELLER) 

230 IF GD(TELLER) > 0 THEN 
TELLER = TELLER + 1 : 

GOTO 220 

240 TELLER=TELLER-1 REM 
Juiste hoeveelheid 

In de hiervoorgaande listing wordt als 
eerste alle waarden van papier en 
munten ingelezen in de array GD(XX), 
waarbij de TELLER netjes wordt bij¬ 
gehouden. Deze variabele is verderop 
in het programma ook nog van be¬ 
lang, daarom wordt hij in regel 240 op 
het juiste aantal geld-soorten (13) ge¬ 
zet. 

Het vervolg: 

300 REM BEGIN INVOER BEDRAG 
310 PRINT CHR$(147) : REM CLS 
320 PRINT:PRINT:PRINT 
330 INPUT "Bedrag :";BD 

350 REM Berekenen 
360 FOR K = 1 TO TELLER 


370 G% = INT(BD / GD(K)) 

380 BD = BD - ( G% * GD(K)) 

390 TT(K) = TT(K) + G% 

400 NEXTK 

Afgezien van de invoer van bedrag 
BD, treffen we in de regels 350 tot 400 
de kern van dit programma. Het be¬ 
drag BD wordt in de loop K steeds ver¬ 
geleken met één van de waarden uit 
GD(xx), te beginnen bij de grootste 
waarde. Om het juiste gehele aantal 
te bepalen gebruiken we regel 370 
een integer-variabele G% en de INTe- 
ger functie. In regel 380 verminderen 
we BD met het aantal (G%) maal de 
waarde die hier bij hoort (GD(K)), 
waarna we G% in de arry TT(K) stop¬ 
pen om het aantal te bewaren. 

Simpel en leuk om wat beter te bekij¬ 
ken. Vaak is het juist met deze dingen 
zo, dat, als je ze eenmaal hebt beke¬ 
ken en ook werkelijk hebt gesnapt, 
dan vergeet je een dergelijke eenvou¬ 
dige manier van programmeren nooit 
meer en je kunt hem daarna vaak in 
allerlei varianten toepassen. 

Als afsluiting van dit leuke programma 
printen we natuurlijk de uitkomst nog: 

440 PRINT 

450 FOR K = 1 TO TELLER 
460 PRINT 

GD(K);TAB(10);"===";TAB(20) 

! TT(K) 

470 NEXT 
499 END 

Een leuke excursie, waarbij uiteraard 
nogal wat verfraaiingen het program¬ 
ma nog leuker kunnen maken. Ook 
kun je van een hele serie bedragen in 
een overall-lus, gaan uitrekenen hoe¬ 
veel je van iedere eenheid nodig hebt 
om een hele fabriek het maandsalaris 
te laten uitbetalen. Bovendien is het 
een goeie oefening om de centen uit 
deze listing te verwijderen, maar dan 
wel het bedrag af te ronden bij de stui¬ 
vers, zoals dat tegenwoordig in de su¬ 
permarkt gebeurt. 


Datum 

Terug echter naar het onderwerp van 
dit artikel, de tijdrekening. Vanaf het 
Romeinse Keizerrijk kennen we in fei¬ 
te al een redelijke jaartelling, waarbij 
de verstreken tijd van 1 jaar in grote lij¬ 
nen overeenkomt met de tijd die de 
aarde nodig heeft om een volledige 
omloop rond de zon te maken, tijdens 
die omloop draait de aarde iets vaker 
dan 366 keer om haar eigen as, waar¬ 
door je zou denken dat het jaar min¬ 
stens 366 dagen moet hebben. 

Dat klopt echter niet, want doordat er 
ook rondom de zon wordt gedraaid, 
bevindt de zon zich iedere dag op net 
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een iets andere plek ten opzichte van 
de voorgaande en navolgende om¬ 
wenteling. Om een lang verhaal kort 
te maken, een jaar bestaat uit onge¬ 
veer 365,25 dagen. De zaken zijn nog 
heel wat complexer dan hiervoor om¬ 
schreven, en de precieze tijd van één 
jaar ligt op 365,25964 dagen, als we 
spreken over gemiddelde zonneda¬ 
gen. 

Julius Ceasar was hiervan reeds op 
de hoogte gesteld door z’n sterrekun- 
digen, waaronde Sosigenes en hij 
stelde daarom het jaar op 365 dagen 
en 6 uur, waarbij hij om de vier jaar 
ook een schrikkeljaar invoerde met 
daarin 366 dagen. Dit schrikkeljaar 
maakt het verlies van de 3 maal 6 uur 
goed van de voorgaande 3 jaren. Op 
deze wijze kende men tot in de 16e 
eeuw de jaartelling. 

Zo’n 1550 jaar na de invoering van 
deze Juliaanse kalender bleek toch, 
dat de onnauwkeurigheid van Julius 
Ceasa in deze te groot geworden 
was, w ant Julius telde een paar minu¬ 
ten pei jaar teveel. Maar enkele minu¬ 
ten 1550 keer betekent toch een ver¬ 
schil van meer dan 10 dagen. Dat be¬ 
gon d<! Paus te vervelen, dus deze 
Gregoïius XIII besloot de hele telling 
te herzien, en het jaar definitief vast te 
stellen op 365,2422 dagen, ofwel 365 
dagen, 5 uur 48 minuten en precies 51 
sec. 

Dit had in 1542 tot gevolg dat na 4 ok¬ 
tober ineens 15 oktober voor de deur 
stond, waarop ineens alle engelse 
voor de deur van hun bankiers ston¬ 
den om de vergeten rente op te eisen. 
Voor de jaartelling betekent deze Gre¬ 
goriaanse tijdrekening, dat we zelfs 
nu, meer dan 300 jaar later nog steeds 
redelijk binnen de telling zitten. Iedere 
vier jaar een schrikkeljaar, en bij de 
eeuwwisselingen van 1700, 1800, 
1900 geen schrikkeljaar. In het jaar 
2000 zullen we dus weer wel een 
schrikkeljaar beleven. Wat daarna ge¬ 
beurt houden we nu maar voor ge¬ 
zien. 

leder jaar tellen we om precies te zijn 
0,00778 dagen teveel. De rest mag je 
zelfs uitrekenen. 


Kalender 

Naast de duur van het jaar bestaat 
onze tijdrekening uiteraard uit meer 
dingen. Zo hebben we in een jaar 
meestal 52 weken, soms zelfs 53, zo¬ 
als in 1987, terwijl ook de 12 maanden 
nogal voor afwisseling zorgen. Wat 
dat betreft kunnen we ons veel beter 
redden met de hebreeuwse tellingen, 
want daar heeft men geen last van 
specifieke dagen etcetera. Men telt 
per week simpel de dagen af als Eer¬ 
ste dag, tweede dag en zo verder. 


Het aantal dagen per maand is ook 
aan niet al teveel regels gebonden, al 
hebben we wel een standaard gekre¬ 
gen, zodat niet iedereen voor zich 
maar kan gaan tellen. 

De schijngestalten van de maan heb¬ 
ben waarschijnlijk voor de indeling 
van ons jaar model gestaan. Deze zijn 
gemakkelijk te bekijken en duren ge¬ 
middeld zo’n 29,5 dagen, terwijl een 
week daar een vierde gedeelte van is. 
Probleem is echter, dat 12 maal 29,5 
beslist minder is dan 365,25. Daarom 
heeft men indertijd besloten aan enke¬ 
le maanden in plaats van 30 dagen, 
31 dagen toe te kennen, terwijl de 
tweede maand (februari) als absoluut 
buitenbeentje 28 c.q. 29 dagen bevat. 


Structuur 

Het zal voor iedereen wel duidelijk 
zijn, dat het beslist niet meevalt deze 
jaartelling op een fatsoenlijke manier 
in een computerstructuur te verwer¬ 
ken. Ofwel we zitten met een grote 
hoeveelheid condities, waarmee iede¬ 
re ingevoerde dagdatum kan worden 
getest, of we zijn dermate onnauw¬ 
keurig in het weergeven van de juiste 
datum, het bepalen van een interval 
tussen twee data of het kontroleren op 
de invoer van een korrekte datum, dat 
ons computersysteem niet erg werk¬ 
baar meer is. 

Toch is er - met hulp van wat slimme 
wetenschappers uit vroeger dagen - 
gelukkig nog wel enige structuur aan 
te brengen in het rekenen met de tijd. 
We hebben ons op dit probleem ge¬ 
worpen, en er zijn een serie leuke, niet 
al te lange en zeker handige stukjes 
Basic uit voortgevloeid. 

Bedenk wel, dat er in ieder program¬ 
ma wat zich met deze materie bezig 
houdt een zeker mate van onnauw¬ 
keurigheid schuilt, we geloven echter, 
dat de hieronder gepubliceerde routi¬ 
nes probleemloos zakelijk kunnen 
worden ingezet. Op z’n hoogst verlan¬ 
gen ze eens per honderd jaar een bij¬ 
stelling, waarvan we de eerste in het 
jaar 2100 kunnen verwachten. We zijn 
daarom ook niet aan het programme¬ 
ren geslagen met de kontrole op het 
alterneren van schrikkeldagen bij de 
eeuwwisseling. Bekijk de routines een 
wat precieser, want ze zijn niet 1-2-3 
te begrijpen, al zal in veel gevallen het 
letterlijk overtypen reeds voldoende 
zijn. 

Basic 

Sorry voor de theorie die aan deze lis- 
tingregels vooraf ging, maar ja, als je 
zolang bezig bent om uit een volledig 
ongestructureerde tijdtelling een routi¬ 
ne te destilleren, die in een logisch ap¬ 


paraat als een computer aan het werk 
moet, dan vormt dit type wetenschap 
op z’n minst een goede ondergrond. 
Hoe dan ook, we zullen nu echt ver¬ 
dergaan met wat Basic routines. 

Als eerste een simpel invoerstuk, 
waarmee we voor alle programma’s 
standaard een datumstring in een be¬ 
paalde variabele zetten: 

1500 REM INVOER DATUM 
1510 REM ALS STRING D$ 

1520 D$ = "" :REM SNIT 
1530 PRINT" DATUM (als 
JJMMDD) 

1540 INPUT D$ 

1550 IFLEN (D$) <> 6 THEN 
GOSUB 1600: GOTO 1520 
1560 FOR L = 1 TO 6 
1570 A$=MID$(D$,L,1 ) 

1580 IF VAL(A$)= 0 AND A$ <>"0" 
THEN GOSUB 1600: GOTO 
1520 
1590 N EXT 
1595 RETURN 

Deze subroutine is in ieder willekeurig 
programma te gebruiken en doet niet 
veel anders dan op de plaats van de 
cursor op het scherm een string vra¬ 
gen, die als JJMMDD de datum moet 
vormen. Na de invoer worden direct 
twee basistests uitgevoerd, de eerste 
in regel 1550, waar wordt bekeken of 
de ingevoerde string inderdaad pre¬ 
cies 6 karakters lang is. Is dit niet het 
geval, dan wordt via een foutmel- 
dingsroutine (1600 vv) opnieuw een 
datuminvoer gevraagd. 

De tweede test kost iets meer ruimte. 
Deze loopt van 1560 tot 1590. De lus 
pakt steeds 1 karakter van D$, via de 
MID$() functie, zoals die in de vorige 
aflevering aan de orde is geweest. 
Van deze 1 letterlange A$ wordt nu 
bekeken of het inderdaad een digit 
(cijfer) is, dat door de gebruiker is in¬ 
gevoerd. Bevat D$ een letter van het 
alfabet of bijvoorbeeld een leesteken, 
dan wordt ook naar de foutroutine ge¬ 
sprongen. 

Bestaat D$ uit allemaal cijfers, dan 
volgt geen melding en komt men via 
RETURN terug in het hoofdgedeelte 
van het programma. 

Melding 

Bij een goed programma horen op z’n 
minst een serie routines, waarin ver¬ 
schillende meldingen zijn onderge¬ 
bracht. We zagen in de vorige listing 
al, dat er voor het melden van een fou¬ 
tief ingevoerde datum als twee keer 
een verwijzing naar subroutine 1600 
werd gemaakt. Voor hetzlefde geld 
hadden we daar de gegevens van de 
regels 1600-1630 in kunnen voeren, 
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maar daarmee maken we een onno¬ 
dig lang (maar wel wat sneller) Basic- 
programma. 

Hier komen de twee melding-routines: 

1600 REM DATUM FOUT 
1610 REM MELDING 
1620 PRINT:PRINT "FOUTE 

DATUM ";D$;" INGEVOERD" 
1630 RETURN 
1699: 

1700 REM DATUM GOED 

1710 REM MELDING 

1720 PRINT:PRINT "DATUM ";D$;" 

IS KORREKT" 

1730 RETURN 

De manier om deze zo simpele print- 
regels in subroutines af te handelen is 
zeker de moeite waard. Ook later in 
het programma kunnen we moeite¬ 
loos van dezelfde routines gebruik 
maken, terwijl we als we een dergelij¬ 
ke melding willen wijzigen, door bij¬ 
voorbeeld een andere taal in te voe¬ 
ren, of een kadertje om de tekst te zet¬ 
ten, of we willen alle meldingen per sé 
op de onderste regel van het scherm, 
dan hoeven we deze wijzigingen uit¬ 
sluitend in de betreffende subroutine 
aan te brengen, en niet her en der 
door het programma heen. 


Tot zover hebben we nu een routine 
om een datumstring (D$) in te voeren, 
waarvan we met hulp van elementaire 
tests weten, dat de string precies 6 ka¬ 
rakters telt, en dat deze karakters be¬ 
staan uit alleen cijfers. Wat we niet 
weten, is of het formaat van de string 
goed is, en of uiteraard een geldige 
datum is ingevoerd. De eerste tests 
hebben nog niet strings als "110288" 
en "333333" uitgefilterd, daarvoor 
moeten we nog een paar regels Basic 
schrijven. 

Als eerste zullen we moeten zorgen, 
dat de sting D$ op de juiste wijze 
wordt gesplitst in 3 numerieke varia¬ 
belen, die voor de duidelijkheid de ori¬ 
ginele namen J,D,M hebben gekre¬ 
gen. We hebben daar de volgende 
routine voor: 

1000 REM DATUMSPLISEN 
1010 REM INVOER ALS STRING 

D$ 

1015 REM D$ = "JJMMDD" 

1020 REM WORDT OMGEZET IN 
J,M,S 

1030 E = 19: REM EEUW 
(KONSTANT) 

1040 J = 0 : REM JAAR (0-99) 

1050 M = 0 : REM MAAND (1-12) 
1060 D = 0 : REM DAG (1-31) 

1070: 

1100 J = VAL ( LEFT$ (D$,2)) 


1110 M = VAL (MID$ (D$,3,2)) 
1120 D = VAL ( RIGHT$(D$,2)) 

1150 RETURN 

We zien, dat naast J,M,D ook variabe¬ 
le E met een constante waarde van 19 
is ingevoerd. Deze E stelt de eeuw 
waarin we momenteel leven voor, 
maar dan gedeeld door 100. Eventu¬ 
eel kan ook E natuurlijk uit een 8 ka- 
rakterlange D$ worden gehaald. 
Daarbij moet D$ worden ingevoerd als 
bijvoorbeeld "19800325". Uiteraard 
moeten daarvoor ook de andere routi¬ 
nes worden aangepast. 

Als we tijdens het runnen van deze 
routine bij regel 1150 zijn aangeland, 
dan hebben we de beschikking over 
vier variabelen, die samen de in D$ in¬ 
gevoerde datum vormen. 

Bij invoer van "880412" kennen we als 
belangrjjke variabelen na uitvoer van 
deze routine dus: 

D$ = "880412" 

E = 19 
J = 88 
M = 04 
D = 12 

Samen de datum 14 april 1988 vor¬ 
mend. 

We gaan verder met de belangrijkste 
subroutine voor ons eerste datum- 
programma. 



We hebben al de nodige theorie over 
de maanden van het jaar achter de 
rug, en op de kleuterschool werden de 
namen ons al ingestampt. Om de vol¬ 
gende routine wat beter te begrijpen, 
zullen we echter toch nog even wat 
beter met het aantal dagen per maand 
vertrouwd moeten raken. 

Als ezelsbrug telden we vroeger de 
knokkels van een hand, beginnend bij 
januari. Iedere knokkel stelde een 
maand voor met 31 dagen, ieder dal 
een maand met ofwel 30 of 28/29 da¬ 
gen. Daarmee krijgen we het volgen¬ 
de schema: 


1 januari 31 
3 maart 31 
5 mei 31 

7 juli 31 

8 augustus 31 
10 oktober 31 
12 december31 


2 februari 28/29 
4 april 30 
6 juni 30 

9 september 30 
11 november 30 


Kort samengevat hebben de maan¬ 
den met nummer 1,3, 5, 7, 8,10 en 12 
een duur van 31 dagen. 

Maand 2 heeft er 28/29 afhankelijk 
van het jaar en de maanden 4, 6, 9 en 
11 hebben 30 dagen. 


Met deze lichte structuur van maan¬ 
den en dagen in ons hoofd kunnen we 
de volgende routine best aan. Deze 
routine vormt het hert van het eerste 
programma en hier wordt bekeken of 
een juiste datum in D$ in ingetoetst: 

2000 REM TEST GELDIGE DATUM 
2010 REM DATUM IN J,M,D 
2020 : 

2030 X = -1 AND M > 0 AND M < 13 
AND D > 0 : REM GOEDE 
INTEGERS 

2040 X = X AND D < 32 +(M=4 OR 
M=6 OR M=9 OR M=11) + 
(M=2)*(3+(INT(J/4)*4=J)) 

2050 IF X = 0 THEN GOSUB 1600 
: REM FOUTE DATUM 
2060 IF X <>0 THEN GOSUB 1700 
: REM GOEDE DATUM 
2080 RETURN 

De sleutel van deze moeilijke routine 
is de vlag X. Als X een waarde heeft 
anders dan 0, X=TRUE ofwel X onge¬ 
lijk 0, dan hebben we te maken met 
een geldige datum. We zien in de laat¬ 
ste regels (2050 en verder) dat daar 
deze test wordt uitgevoerd en naar 
gelang de waarde van X naar routine 
GOED (1700) of FOUT (1600) wordt 
gesprongen. Ook na RETURN kan 
natuurlijk in het hoofdprogramma op 
grond van de waarde van vlag X nog 
altijd worden bekeken of deze test ge¬ 
slaagd is. 

Regel 2030 en 2040 zullen wel wat 
meer problemen geven. Toch wil ik 
het er niet bij laten zitten, en aan de 
hand van een bespreking per regel 
toch wat licht op deze Boolse vergelij- 
kingstests laten schijnen. 

We beginnen bij regel 2030: 

2030 X = -1 AND M > 0 AND M < 13 
AND D > 0 

Als eerste zien we, dat aan X de waar¬ 
de -1 wordt gegeven. Deze waarde 
zet X op TRUE (ongelijk 0). Daarna 
kijken we of voor M=maand en D=dag 
een waarde is ingevoerd binnen de 
grenzen. 
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We kunnen deze ene regel ook be¬ 
schrijven met de volgende lijst van op¬ 
drachten: 

10 REM DUMMYTEST 
20 X = -1 

30 IF M < 0 THEN X=0 
40 IF M > 13 THEN X=0 
50 IF D < 0 THEN X=0 

In deze vier regels gebeurt exact het¬ 
zelfde als in regel 2030 van onze rou¬ 
tine. De wijze van 2030 geeft een 
snellere manier en schrijfwijze weer. 
Er wordt gebruik gemaakt van de AND 
functie in Basic, waarbij als uitkomst 
altijd een waarde ongelijk aan nul 
(FALSE) gegeven wordt als de verge¬ 
lijking fout is. Anders is de uitkomst lo¬ 
gisch TRUE. We hebben in regel 2030 
alle vergelijkingen gewoon naast el¬ 
kaar gezet en als ook maar één van 
de tests niet goud zou zijn, wordt de 
waarde voor X meteen al nul, ofwel 
FALSE. 

Regel 2040 borduurt tamelijk complex 
verder op de waarde die X heeft ge¬ 
kregen uit regel 2030. Maar nu wor¬ 
den met name de dagen in de speci¬ 
fiek maand getest: 

2040 X = X AND D < 32 +(M=4 OR 
M=6 0R M=9 OR M=11) + 
(M=2)*(3+(INT(J/4)*4=J)) 

Deze regel is in een paar stukken uit 
elkaar te plukken. 

Als eerste krijgt X de waarde uit de vo¬ 
rige vergelijking meer (TRUE of FAL¬ 
SE). Daarnaast wordt getest of de da¬ 
gen (D) kleiner is dan 32. De test op 
kleiner dan 0 hebben we voor reeds in 
regel 2030 uitgevoerd. 

Als D groter is als 31 krijgen we voor 
dit gedeelte van de regel een FALSE. 
Vervolgens komt bij dit gedeelte de 
test of de maanden misschien horen 
in de categorie van maanden met 30 
dagen, ofwel de nummers 4,6,9 en 11, 
zoals we eerder hebben gezien. 

Stel maar even, dat we hebben inge¬ 
voerd "880412". M is dan 4 en D=12. 
Deze test loopt ot hiertoe met de vol¬ 
gende waarden: 

X= -1 AND D< { 32 + ([M=4] -1 
OR 0 OR 0 OR 0 )} 

ofwel 

X = -1 AND -1 --> X = -1 

Een moeilijk te begrijpen stuk, zeker 
als je weinig weet van het gebruik van 
AND en OR. Het programma is er hier 
op gebaseerd, dat als TRUE een 
waarde van -1 terug komt. Door deze 
waarde (-1) voor de maanden met 30 
dagen, op te tellen bij de vergelijking 
D < 32 krijgen we dus D < 32 + (-1) of¬ 
wel D < 31, waardoor we precies be¬ 


reiken wat we willen, namelijk de test 
of D voor deze waarden van M 
(4,6,9,11) kleiner is dan 31. Simpel, 
maar kom er maar op en weet later bij 
het debuggen nog maar eens hoe het 
nu precies zat. 

Ongelijkheid 

Er zijn nogal wat verschillen in de in¬ 
terpretatie van TRUE en FALSE en de 
weergave daarvan per computer. De 
meeste machines hanteren gelukkig 0 
voor FALSE en -1 voor TRUE. Er zijn 
echter computer, die een 1 als waar¬ 
de voor TRUE kennen. Het is erg ge¬ 
makkelijk, om dat bij je eigen Commo¬ 
dore (of andere computer) te probe¬ 
ren, door het volgende programmaat¬ 
je te runnen: 

10 Commodore (of andere computer) 
te proberen, door het volgende pro¬ 
grammaatje te runnen: 

10 REM TRUE-WAARDE 
20 M=4 

30 PRINT "FALSE = (M=2) 

40 PRINT "TRUE = "; (M=4) 

Aan de hand van deze uitkomsten kun 
je het programma voor je eigen com¬ 
puter aanpassen. Want als je voor 
TRUE een waarde 1 krijgt, moetje de 
uitkomst van M natuurlijk aftrekken 
van D <32 inplaats van optellen, zoals 
in deze listing is gedaan. 


Het laatste stuk van regel 2040 houdt 
zich, compleet met optelling voor 
TRUE = -1 bezig met het schrikkel¬ 
jaar, ofwel de test of de maand februa¬ 
ri nu 28 of 29 dagen heeft. Om zover 
te komen, moeten we dus een datum 
in D$ zetten, die in een bepaald jaar 
29 februari geeft. Laten we het voor 
1988 maar eens proberen. 

We voeren in voor D$ : "880229", 
waardoor J=88, M=2 en D=29 
De test van regel 2030 geeft voor X 
een waarde -1. 

Voor regel 2040 ziet het plaatje er als 
volgt uit (zetje maar even schrap: 

X= -1 AND D< { 32 + (0 OR 0 
OR 0 OR 0 )} 

tot hier dus geen bijtelling, maar M=2 
en daar komen we in de rest van de 
regel aan toe: 

(M=2) * (3 + (INT(J/4)*4=J)) 
ingevuld krijgen we daarvoor: 

(-1) * (3 + (INT (88/4)*4=88)) 

(-1) * (3 + (22)*4 =88)) 

(- 1 )* ( 3 + (88 = 88 )) 

(-1) * (3 + (-1)) 

(-3 + (-1) = -2) 

waardoor de vergelijking in regel 2040 
voor een schrikkeljaar als 1988 wordt: 


X= -1 AND D< { 32 + (0 OR 0 

OR 0 OR 0 )} + -2 

X= -1 AND D< 32-2 ~> D <30 

De invoer van 29/02 is dus geldig en 
dat klopt want 1988 is een schrikkel¬ 
jaar. 

Vullen we bijvoorbeeld in het hiervoor- 
gaande als jaar 1987 in, dan krijgen 
we uiteindelijk als uitkomst: 

X=-1 AND D< { 32 + (0 OR 0 

OR 0 OR 0 )} + -3 

X= -1 AND D< 32 -3 ™> D <29 

Pittig, maar bijzonder efficiënt. Bekijk 
het goed en vul zonodig per groep wat 
waarden in voor M en D, waardoor al¬ 
les naar ik hopen mag wat duidelijker 
wordt. Ik hoop in ieder geval, dat deze 
moeilijke regel goed wordt gedrukt, 
want het missen van één groter- of 
kleiner-dan teken of een haakje zal al¬ 
les in de war schoppen op een zoda¬ 
nige manier, dat je er geen touw meer 
aan vast kunt knopen. 

Als laatste voor deze aflevering het 
hoofdprogramma, waarmee alles wat 
we tot hier toe met betrekking tot de 
datum hebben gehad aan elkaar kan 
worden gebreid: 

10 REM Datum controle 
20 REM Test op geldige datum 
100 REM Begin programma 
110 PRINT CHR$(147) : REM CLS 
120 PRINT : PRINT 
130 GOSUB 1500 : REM DATUM 
INVOER 

140 GOSUB 1000 : REM 
UITSPLITSEN 

150 GOSUB 2000 : REM TESTEN 
DATUM 
999 END 

Dit gedeelte is erg kort, mede doordat 
het gehele programma in feite niet 
meer is dan een subroutine. Na het 
schoonmaken van ’t scherm wordt 
niet veel meer gedaan dan de ver¬ 
schillende routines achterelkaar uit¬ 
voeren, waarna het programma afge¬ 
lopen is. Vanuit de routine om de wer¬ 
kelijke test uit tevoeren wordt op 
grond van de waarde van X al een 
melding gegeven, zodat dit in het 
hoofdgedeelte niet hoeft te gebeuren. 


De volgende keer zullen we met de 
tijdrekening en het dateren wat verder 
puzzelen en programmeren. De mate¬ 
rie is er leuk genoeg voor en boven¬ 
dien zullen routines vna dit type zeker 
niet misstaan in de meest uitvoerige 
commerciële programma’s. 

Sterkte 

Jan Bodzinga 
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